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5 COMPUTER SOFTWARE ADDENDUM 

Attached hereto is a compact disc containing computer 
software and data including executable programs, scripts, and 
database management system tables that are used to implement 
the systems and methods provided by the present invention. 
10 More particularly, the attached compact disc contains software 
and data used to implement at least two distinct applications 
comprising the systems and methods provided by the present 
invention; such two distinct applications include a broad-based, 
general use energy management system (referred to as the 
15 Energy Management System "EMS"), and a limited user/function 
restricted application (referred to as the Producer Control Center 
ljl "PCC") intended for use by fuel producers needing access to 

\* centrally stored and managed fuel deal data. Such material is 

O protected by the Copyright Laws of the United States (17 U.S.C. § 

yl 

py 20 101, et seq.) and may not be copied without the express, written 
q authorization of the copyright holder (Highland Energy 

^ Corporation). Copyright © 2001, Highland Energy Corporation. 

All Rights Reserved. 
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25 BACKGROUND OF THE INVENTION 

Field of the Invention 

The present invention relates to systems and methods 

used to facilitate pricing, sale, and distribution of fuel to a 

customer. More particularly, the present invention is directed to 
30 automated systems and methods that are used to price fuels such 

as natural gas, oil, gas, other petroleum based fuels, etc., to 



-1- 



facilitate commodity sales of such fuels, and to distribute such 
fuels to customers, and to track and report sales and distribution 
related data. 



5 Description of the Related Art 

Fuel sales and distribution systems and techniques are well 
known. Everyday millions of fuel sale contracts are completed in 
the U.S. and abroad. Fuels produced by a range of producers are 
transported over many modes of transportation (e.g., gas 
10 pipelines, etc.) to ultimately arrive at an intended destination. The 
steps involved in pricing fuel, selling a reserve, storing reserves, 
and ultimately transporting purchased fuel involve many parties 
including producers, agents, brokers, other middlemen and, 
ultimately, end customers. All of these parties have their own 
15 unique ways of doing business, reporting sale and purchase data, 
and collecting and paying against agreed upon contracts. 

Unfortunately, many of the steps and processes carried out 
to facilitate fuel sales and distribution are archaic, inefficient, and, 
u . often, paper-based. Such inefficient ways of doing business 

k; 20 cause many parties to engage large teams of personnel to 
B manage the intricate details often involved in fuel sale and 

distribution. Fuel deal pricing provides a good example of the 
inefficiencies involved in moving large volumes of natural gas and 
other fuels. 

25 Typically, pricing fuel deals in the natural gas arena 

involves manual processes related to gathering fuel index rates, 
manually computing sales prices across a multitude of fuel sales 
deals, laboriously factoring in transportation and other tangential 
costs, and managing for fuel overages and short falls often 

30 associated with transportation anomalies, etc. These processes 
typically involve the efforts of large teams of personnel within 
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organizations who are required to constantly monitor sales deals, 
set pricing limits for sales people, and track and record fuel deal 
progress. 

While many systems have been developed to facilitate sale 
and distribution of fuel and other products, commodities, and 
services in general, no systems developed to date can effectively 
management the volume of transactions among a wide array of 
parties to efficiently and effectively get fuel from one place to 
another. Moreover, existing systems have heretofore not been 
able to facilitate pricing practices that factor in past fuel deal data 
across a multitude of prior fuel deals to better drive profit margins 
in the commodities and brokerage fields. 

Accordingly, there exists a serious need to provide systems 
and methods that enable centralized location and management of 
fuel deal data, provide for application of pre-determined pricing 
techniques based on such fuel deal data, facilitate broad-based 
reporting based on such centrally stored fuel deal data to drive 
better business practices for parties to fuel deals, and increase 
productivity and make more efficient fuel sale and distribution 
practices. The present invention squarely addresses such a need 
and provides a new and improved systems and methods for 
facilitating fuel sale and distribution. 

SUMMARY OF THE INVENTION 

The present invention solves the problems mentioned 
above with regard to prior systems and methods used to facilitate 
sale and distribution of fuel to a customer. By squarely 
addressing the limitations of prior systems and methods, the 
present invention provides new and improved systems and 
methods that permit a wide array of users to broadly access a 
central data store to create and manage fuel deal data. Such new 



and improved systems and methods further permit the inclusion of 
pricing processes into existing business processes that are based 
on prior fuel deal data and which take into account prior prices 
charged across collections of prior fuel deal contracts. 

Accordingly, the present invention provides new and 
improved systems and methods for facilitating sale and 
distribution of fuel to a fuel customer. Such systems and methods 
include and involve a server facility configured to store fuel deal 
data and to process such fuel deal data to automatically generate 
pricing data based on the fuel deal data and in accordance with a 
pre-determined pricing technique. The system and method also 
include and involve a client facility that is coupled to the server 
facility via an electronic data network and which is configured to 
permit a user to enter such fuel deal data and to cause the server 
facility to store and process the fuel deal data to generate the 
pricing data. As such, fuel may be sold and distributed to a fuel 
customer via a fuel distribution system based on the fuel deal data 
and the automatically generated pricing data. 

BRIEF DESCRIPTION OF THE DRAWINGS 

The present invention is described in detail below with 
reference to the following drawing figures, of which: 

FIG. 1 is a timing diagram that depicts process flows within 
a business process that facilitates sale and distribution of fuel to 
customers in accordance with a preferred embodiment of the 
present invention; 

FIG. 2 is a system diagram in which client systems can 
access server system(s) to facilitate sale and distribution of fuel to 
customers in accordance with the business process illustrated in 
FIG. 1; 



FIG. 3A is an entity relationship diagram that depicts data 
relationships among tables and corresponding table entries used 
to implement the systems that carry out the business process 
illustrated in FIG. 1; 

FIG. 3B is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3C is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3D is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3E is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3F is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3G is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3H is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 



used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 31 is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3J is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3K is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3L is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1; 

FIG. 3M is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG; 1; 

FIG. 3N is another entity relationship diagram that depicts 
data relationships among tables and corresponding table entries 
used to implement the systems that carry out the business 
process illustrated in FIG. 1 ; 

FIG. 4A is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 



FIG. 4B is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4C is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4D is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4E is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4F is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4G is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4H is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 41 is another screen shot of a data processing 
application running within a client system to facilitate at least 



some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4J is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4K is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4L is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4M is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4N is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 40 is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 4P is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 



FIG. 4Q is another screen shot of a data processing 
application running within a client system to facilitate at least 
some of the operations carried out to effect the business process 
illustrated in FIG. 1; 

FIG. 5A is a flow chart that illustrates the operations carried 
out to effect a pricing technique and, in particular, one that 
effectuates a weighted average sales price for fuel deals in 
accordance with a preferred embodiment of present invention; 
and 

FIG. 5B is the conclusion of the flowchart started in FIG. 

5A. 

DETAILED DESCRIPTION OF THE 
PREFERRED EMBODIMENTS 
The present invention is now described in detail with regard 
to the drawing figures that were briefly described above. 
The systems and methods described herein are illustrative of the 
exemplary system implemented by way of computer software 
within a networked data processing environment and which is 
contained within multiple files housed on the compact disc that is 
appended to this patent document. Accordingly, the discussion 
that follows refers to such an exemplary system and those skilled 
in the art are encouraged to review such appended software in the 
context of fuel deal management for a complete understanding of 
the present invention. As noted at the beginning of this patent 
document, the material contained on the attached compact disc is 
protected by the Copyright Laws of the United States (17 U.S.C. § 
101, et seq.) and may not be copied without the express, written 
authorization of the^ copyright holder (Highland Energy 
Corporation). Copyright © 2001, Highland Energy Corporation. 
All Rights Reserved. 



Referring now to FIG. 1, depicted therein is a timing 
diagram corresponding to the business process carried out within 
an organization to facilitate sale and distribution of fuel to a 
customer and which may be set up to utilize the systems and 
methods provided by the present invention. In particular, FIG. 1, 
illustrates a monthly or periodic business process involving 
several phases of operation that are carried out by the systems 
and methods provided by the present invention including, but not 
limited to: an availability phase, a bidding phase, a nominating 
(e.g., gas pipeline nominations, etc.) and routing phase, a third 
party and sanctioned sales period, a pricing period, an invoicing 
period, and an accounting period. Together, these periods make 
up what is referred to herein as a MONTH OF FLOW PROCESS 
(MFP). The MFP is described next to further illustrate the 
business operations that are handled by the systems and 
methods provided by the present invention. 

THE MONTH OF FLOW PROCESS (MFP) 
Availability Period 

During the availability period of the month of flow process, 
equity contracts for sale and distribution of fuel (those that need to 
roll from month to month) are established for the next month. 
These purchase deals define the anticipated volumes by 
well/meter for each producer. The status for the production month 
needs are set to 'Availability' at this point. Then, correspondence 
is transferred (via fax, email and phone conversations) to the 
various operators/producers in order to confirm the anticipated 
volumes to be produced. 

The anticipated production volume for an entire well/meter 
is then entered into the system. An entitlement and makeup 
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percentage is used to indicate how much of this volume is actually 
available to be marketed (represents the owner interest in the 
production of the well/meter). New deals are setup on the system 
to represent the new month's purchases. The package 
description is utilized to assist with easy recognition of volumes, 
price, etc. (used for identification purposes only). There is a 
process built within the system to automate the propagation of 
new deals to the next month (first time into a new month will 
automatically generate entries for the new month with zero 
volume amounts). The actual volume stored on the system (at 
this point) is zero. Only the nominated volumes contain the 
expected volumes for the production month. These 'nominated" 
volumes are equal to the estimates provided by the producers and 
entered into the system during this part of the month of flow. The 
primary area of the system utilized is the 'Availability' functions (off 
the system's main menu.) 



Bid Week Period 
During the bid week of the month of flow process, buyers 
are found for the volumes that were made available through the 
availability step described above. The status of the production 
month of the system needs is set to 'Sales" at this point. By 
setting the status to 'Sales' all of the price indices will be initially 
populated and 'seeded' with zero values. Each of the sales is 
confirmed by a dealmaker and is written up on a deal log sheet. 
These deal log sheets reflect the pipe/field, meter/well, company, 
contract, volume, and pricing instructions to support the sale. 
Prior to completing a deal, the dealmaker will work closely with the 
volume control group to ensure that appropriate volumes will be 
available at the well/meter of sale. The dealmakers then complete 
the deal log sheet entries for the sale and they are transferred to 



the volume control group for deal creation and entry into the 
system. Most of the volumes sold during this particular phase are 
for the equity purchase deals created during the availability 
period. 

Nominating and Routing 
During the nominating and routing period of the month of 
flow process, the volumes to support the sales are routed from the 
producer's well/meters to the sales wells/meters (primarily to 
pooling points or field tanks). This process occurs throughout the 
entire month. When the volumes are routed to specific pool 
wells/meters, allowances are automatically made by the system 
for fuel, gathering and transport costs. These costs will net down 
the actual available volumes that can be applied to the sales 
deals. When volumes are routed to a pool/tank then these 
volumes reflect as Transport Out volumes'. The volumes then 
show up as "Transported In' (net fuel) on the receiving meter/well 
within the system. The primary area with the System utilized 
during this process is the "Route Volume" menu option within the 
Routing module (main menu selection of 'Routing' on the System. 

Third Party Deals and Sanctioned Sales 
During the Third Party Deals and Sanctioned Sales of the 
month of flow process, the dealmakers complete the third party 
deals. These deals are typically setup where a specific purchase 
deal (non equity type) is made to support a specific sales deal. 
These types of deals will usually have a specific price agreement 
and volume associated with them. Sanctioned sales represent 
sales from equity volumes with specific terms (prices, volumes, 
etc.) to specific sales meters. A sales price for a specific volume 
is set in advance of the production month with these types of 
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deals. All third party deals are excluded from Weighted Average 
Sales Price (WASP) calculations as discussed below with regard 
to FIGS. 5A and 5B (each third party purchase volume exists 
within its own WASP pool ('None')). All sanction sales deals are 
included within the WASP calculation but EACH combination 
sanction sales (purchase-to-sale) will utilize a 'Dedicated 1 WASP 
pool during the calculation. In this way, sanction sale costs etc. 
PLUS netback percentages can be applied. All equity deals 
combined with the 'Common' WASP pool where costs and prices 
are aggregated by meter/well based on volume weightings. All 
deals actually go through the calculation in order determine 
margins. However, the calculation has been setup to ensure that 
third party, sanctioned sale and equity pools are calculated 
without interfering with each other. 



Pricamg 

During the pricing period of the month of flow process, all 
monthly index based prices are entered immediately when 
published. These are usually entered just before the beginning of 
the production month. Daily prices are keyed or otherwise 
entered throughout the month as they are received. When deals 
are setup the 'Pricing' function within the System is used to 
actually calculate a price for the deal ('Price' tab on deal detail 
screen). Each evening, for example, the 'Price All Deals 1 function 
of the System is started. This particular function will re-price all 
deals for the entire month (Price + WASP calculations). For 
months in the 'Sales' phase, the nominations are re-priced and 
recalculated. For months in the 'invoiced' phase, the pipe/field 
actuals are re-priced and recalculated. In addition, to this periodic 
process, an option exists within the System to price production 
months throughout a day, for example. Below, with reference to 
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FIGS. 5A and 5B, the details related to fuel deal pricing are 
described. The ability of the present invention to incorporate a 
pricing technique such as one that is predetermined and 
implemented as a modular component of a larger software 
system, represents a significant point of novelty to which the 
present invention is directed. 

Invoicing 

During the invoicing period of the month of flow process, 
invoices for all of the sales for the previous month are produced. 
This represents the final step of the month within the system. * All 
marketing individuals directly involved with the system for the 
month (controllers, dealmakers, etc.) are informed that the month 
is closing out and that invoices are now being produced. The 
status for the production month is changed to Invoiced'. A final 
nomination calculation is automatically done with the status 
updated. Accounting is then notified that the month has been 
completed. Invoicing reports are then run for the month and sent 
to the buyers by an accounting group, for example. Additional 
reports may be run (Sales By Pipe/Field, Purchase By Producer, 
Balancing Reports, Pipeline Statement Comparison Reports, etc.) 
by the accounting group for historical reference and reconciliation. 

Accounting 

During the accounting period of the month of flow process, 
an accounting group creates a revenue and journal entry feed to 
track receivables within an automated accounting system. This 
feed is created directly out of the system. Pipe/Field statements 
begin appearing beginning as early as the 15 th of the month. 
These statements represent volumes (by well/meter) for the 
previous month. Each accounting analyst is responsible for a 
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specific set of pipe/fields. The volumes from these statements are 
entered as actuals into the system. A copy of the Pipe/Field 
statements are sent to the controllers for sign off. Accounting 
analysts then balance all of the purchase meter routing 
information for their respective pipe/fields. Accounting analysts 
then balance all of the sales meters for their respective pipe/fields. 
Accounting analysts then adjust any route volumes that cross 
pipe/fields to ensure interconnect balances are synchronized with 
pipe/field statements. Reconciliation and voucher reports can be 
run immediately after the production month is promoted to 
'Accounting' phase (meaning accounting is finished with the 
month). These reports can then be sent to producers and/or 
entered into to accounting system. 

AN EXEMPLARY SYSTEM 
Referring now to FIG. 2, depicted therein is a diagram of an 
exemplary system in which client systems can access server 
system(s) to facilitate sale and distribution of fuel to customers in 
accordance with the business process (MFP) illustrated in FIG. 1. 
In particular, system 100 includes both server(s) 102 and client 
systems 104. Additionally, a database management system and 
corresponding data store 106 (hereinafter data store 106) is used 
to store fuel deal data and programs. Servers 102 are configured 
to be accessed via wide area network connections such as those 
facilitated via the Internet using open standards based protocols. 
Client systems 106 are configured with software contained on the 
appended compact disc to access servers 102 to engage in fuel 
deal operations such as those described with reference to the 
month of flow process (MFP) discussed above with regard to FIG. 
1. 
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In FIG. 2, client systems 104 may be configured as desktop 
computing systems, wireless computing clients, etc. to access 
servers 102. Such access may be made possible via applications 
and technology such as dbOvernet TCP/IP Socket Connection 
Middleware. Furthermore, servers 102 execute common 
SEServer applications and routines utilizing dbOvernet 
middleware technology. 

Within the processing space of servers 102, a database 
server system such as Microsoft's SQLServer V.7.03 (a DBMS 
engine) may be instantiated. Such a database management 
system may control data store 106 and may be configured in 
accordance with the present invention to maintain all fuel deal 
data in accordance with the present invention. 

The following discussion further defines an exemplary 
arrangement for a client-server system implemented in 
accordance with the present invention: 

SERVERS 

MS Windows NT 4.0 (SP6) may be chosen as a Network 
Operating System. 

The DBMS may be Microsoft's SQL-Server (V7.0x) - 
Service Pack 3. All data generated and processed within the 
context of the present invention is stored in MS SQL-Server 
database tables. Such data is accessed via direct SQL 
statements (embedded in Windows applications, stored 
procedures, forms, and reports). There are several database 
views that have been setup to access aggregated information (for 
performance and consistency). In addition, all of the critical 
calculations and time consuming procedures such as pricing 
calculations, routing and rollover processes, etc. are written as 
Transact-SQL stored procedures and are contained on the 
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attached compact disc and are discussed in further detail below in 
the embedded description-tables found herein. 

The SEServer may be a Middleware Server Application. 
The system database is accessed via middleware software that 
uses TCP/IP (SEServer/dbOvernet). All databases queried 
through the system come through this middleware component. 

SECrystal (Crystal Reporting Engine Server Application) 
may be used for server side reporting functions, etc. All reports 
for the system utilizes a remote Crystal Reporting engine 
(SECrystal) server. These reports are run and saved on the 
server for electronic distribution. Crystal Report (V8.0) from 
Seagate Software is used for this function. 

The SEFax (Fax Server Application) may be used for Fax 
distribution. This server application is responsible for sending out 
reports via a fax device. This software monitors a specific 
directory and when a fax file 'shows up' in the directory it will be 
faxed. 

The MAPI Mail Client Software provides Email (like 
Microsoft Outlook or Outlook Express). The MAPI compliant email 
service needs to be running on the same machine as the report 
engine server (SECrystal). This provides the ability to email 
reports (Correspondence) automatically. Options should be set 
on this client to automatically check (send/receive) at periodic 
intervals. 

The Adobe Acrobat Reader (Free PDF Viewer) is used to 
view reports, etc. The server machine that runs the SECrystal 
reporting server application needs to also have the PDF viewer 
installed. This is used in order to 'spool' to paper the print jobs. 
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WEB ACCESS - NETWORK CONNECTIVITY 
All functions within the System are available over the 
Internet (with appropriate security). An individual wishing to log in 
to the system over the Internet will need to have appropriate 
application security to log in, the current application executable 
program (as contained on the attached compact disc) and an ISP 
account. System administrators will need to furnish access site 
addresses (e.g., IP addresses, domain names, etc.) to users to 
address the systems provided by the present invention. 

CLIENT SYSTEMS 

Client systems may utilize a Client Operating System such 
as MS-Windows 95/98/Me; MS-Windows NT 4.0/2000. TCP/IP 
network protocol is required. Access to the server TCP/IP 
address (either LOCAL address or REMOTE address is required.) 

The system typically includes a single .EXE file(s) (plus 
approximately 8 disk compression and graphics DLL's). The 
system application require only a single executable with a few 
DLL's to reside on the client machine. No other client 
configuration software is required. Upgrades to the client software 
are automatically done when a user first connects (logs in) 
through the Internet (on application startup). A version number 
check will be made if necessary and a new installation program 
and script are automatically downloaded. 

The Adobe Acrobat Reader (FREE PDF view) is used as a 
reporting system for files saved in the PDF 1.2 format. The 
default output for all reports on the system is the standard PDF 
format. This provides for email/electronic storage. In order to 
view reports this software (or other third party viewer with a file 
association to .pdf files) needs to exist on the client machine. 
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The MAPI Mail Client Software is used for electronic mail 
communications. A MAPI compliant email service needs to be 
running on the client machine to be able to highlight a report and 
email it using the client email address list. This software is not 
5 required to run the but is required to take advantage of the 
system's ability to attach reports automatically within an email 
client. 

All client applications are written using DELPHI (V5+) 
including Delphi 3 rd party tools and procedures. Such applications 
10 and stored procedures and identified 3 rd party tools are further 
described in the description-tables found below. 

DATABASES, AND CORRESPONDING 
ENTITY RELATIONSHIPS 
15 The various database tables that make up the system have 

been divided into nine (9) database subject areas. A subject area 
within this context is simply a logical aggregation of tables that 
support a particular business or system function. All of the 
database tables physically reside in the same database, but are 
20 not required to so reside. Only the documentation (as described 
below) has been constructed to illustrate these subject areas. It is 
also important to note that there are linkages (not documented 
here) between the various subject areas. 

These database subject areas and a description include: 
25 Companies: All company related tables (including 

company name, contact name, addresses functions, etc.). 

Contracts: All contract related tables (including contract 
provisions, notes, default standard reporting, etc.). 

Deals: All deal related tables (includes other costs, deal 
30 classes, correspondence, etc.). 
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Volume Inventory: All volume inventory tables (includes 
production interests, daily monthly, calculated values, etc.). 

Operational: All tables that were created to support the 
system (software application). These tables include fax queue 
tables, printer definition tables, system logs, system messages, 
reporting tables, etc. 

Pipes/Fields: All pipe/field and meter/well related tables. 

Pricing: All tables within the system that are related to 
pricing (indices, price descriptions, baskets, etc.). 

Routing: All tables within the system that define routes (leg 
definitions, daily leg rates, monthly leg rates, nom and actual 
volume routing instructions, etc.). 

Security: All security related tables within the system 
(includes user, logins, passwords, business functions, etc.). 

The above-described nine (9) logical database subject 
areas are next broken down into the actual tables that reside on 
the attached compact disc. For purposes of brevity, such 
database subject areas are broken down in the following tables: 



<THIS SPACE LEFT BLANK INTENTIONALLY> 
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Below is an inventory of the variousdatabase tables that are utilized by the Eogray Management System. This 
particular inventory indicates the cu^p number of rows (through January 20^Hthe database (MS SQL Server) 
and the database subject areas (logww grouping of tables). 



Ref# 


Table Name 


I Rows 


Database 


Subject 
Area 


I Description/Comments - 




i i 




Companies 
Subject Area 




1 


! 






1 n 


Aaaress 


1,384 


SQL Server 


Companies 


Contains record entries for each address for ail 
companies and contacts within companies 
(muitipJe address types per company and/or 
contact). 


2.0 


Company 


1,242 


SQL Server 


Companies 


Contains a record entry for each company in 
the database. Information on this table 
includes company name, fax, phone and 
primary address reference identifier. 


3.0 


Contact_Group 


908 


SQL Server 


Companies 


Contains a record entry for each contact group 
relationship. This is the mechanism for 
grouping company contact individuals.. 


4.0 


Contact_GroupNames 


8 


SQL Server 


Companies 


Contains a record entry for each contact group 
name. 


5.0 


ContactFunction 


997 


SQL Server 


Companies 


Contains a record entry showing the contact to 
function relationships for a given company. 


6.0 


Contacts 


3,347 


SQL Server 


Companies 


Contains a record entry for each individual 
contact in the database. Includes full name, 
phone, fax, email title, etc 














^Contracts 
BSubJectArea 














10.0 j 


f 


1,414 


SQL Server 


Contracts 


This table contains a record entry for each 
contract within the system. Bank information 
(ABA), Evergreen indicators, termination date, 
fixed pricing, eta type data attributes are stored 
on these records. Each contract on the system 
has an associated parent 'company' (on the 
Company table). 


11.0 


-KNetBack 

J! 

y 

B 


334 


SQL Server 


Contracts 


This table contains the netbadc pricing tiers 
associated with a given contract The parent 
table for this entity is the contract table <K). 
The netbadc pricing tiers are volume and date 
influenced. 


12.0 


^Knotes 


589 


SQL Server 


Contracts 


This table contains an optional record entry for 
each contract on the system. If there are no 
notes associated with a contract then the 
records are not inserted on the database. This 
provides the users with a free form area for 
keeping notes about a contract 


13.0 


Kproducts 


1,049 


SQL Server 




This table contains a reference to the products 
that are available (oil, gas, liquids, etc.) for a 
given contract A product has to be associated 
to a contract before a deal can be setup using 
that contract for that product 


14.0 


KreportOefauits 


48 


SQL Server 




This table contains the entire standard 
reporting defaults for a particular entity. These 
reports include invoices, remittance, vouchers, 
deal confirmations, eta 


; 15.0 

I 


KreportOvemdes 


0 


SQL Server 




If a particular contract has its own unique 
standard reports then a reference to these 
unique reports is stored in this table for the 
contract in question. 
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Ref# 


Table Name 


9 


Database 


Subject 
Area 


des^^^ptf^mments: 


16.0 


Kservices 


fJT68 


SQL Server 




This table contains a reference to the services 
that are available (marketing, end user, pass 
thru, tc.) for a given contract A service has to 
be associated to a contract before a deal can 
be setuo usinq that contract for that service. 




I I ! 




ueais 

Subject Area . rjh*. ' ' 


t I I 






20.0 


Rd alClass 


6 


SQL Server 


Deals 


This table is a reference table that indicates the 
types of deal dass options that are available. 
The context of each dass is 0=Purchases. 
1 =Sales and 2=Both. The description Held 
indicates the possible answers (but the 
rOealClassA table contains the actual answ rs 
that can be applied). 


21.0 


RdealCIassA 


^ j SQLServer 

I 


Deals 


This table is a reference table that indicates the 
possible deal classification options for each of 
the dassrfications defined in the rDeaiCIass 
table. 


22.0 


RdeaiClassRules 


448 


SQL Server 


Deals 


This table contains record entries for every 
combination of deal dassrfication answers 
(rOealClassA table). Each of these 
classification options can have its own set of 
calculation rules/etc assodated with it 


Z3.0 j Engine.Master 


39,149 


SQL Server 


Deals 


This table contains a record entry for each pnce 
entry effective date (header record). 


24.0 JfEngin JWasterPrice 


79 t 244 


SQL Server 


Deals 


This particular table contains the individual 
pricing components associated to a given deal 
on a given effective date (parent record is on 
the £ngine_Master table). When the user of 
the Energy Management System enters a 
price, this is the table that gets updated. 


2S.0 package 


65,351 


SQL Server 


Deals 


This table contains a record for each deal that 
has been setup on the system. Start Date. End 
Date, Deal Name, Contract Company, eta are 
specified on this table. 


26.0 . 


=FadcageCosts 

s 

u 

Q 


381 


SQL Server 


Deals 


This table contains entries for ail 'other costs' 
associated with a given deal Each of these 
'other costs 1 will have unique STID's (deal or 
meter level) and have calculated 'Engine' 
records automatically generated (when a 
calculation runs). 


27.0 ! 


=P ackageCorrespondence 


3,447 


SQL Server 


Deals 


This table contains entries for ail of the 
electronic correspondence between the parties 
to the deal (deal confirmations, availability 
reports, remittance detail vouchers, etc). 


28.0 


PriceComponents 


19 


SQL Server 


Deals 


This table contain record entries for each 
component that can be set aside tor pridng 
purposes (on a deal). Examples indude 
'DAILY INDEX', 'MONTHLY INDEX', 
'GATHERING*, etc: These tags will be 
associated to each component of the price to 
allow for future queries and reporting. In 
addition, these tags will provide an audit trail of 
all pridng related information. 


29.0 " 


PriceOesc 


33,877 


SQL Server 


Deals 


This table contains a record for each deal 
description (or comments) within the system. 
These price description records (only 1 per 
deal) provide the users with a place to put free 
form text to help describe the once of the deal. 


( 












1 Volume Inv ntory 
Subject Area 


i ii, 
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Ref# 


Table Name' 


Rows 


Database 


Subject 
Area.' 


Description/Comments > — ^ ^ ...... 


30.0 


Engine 


280,970 


SQL Server 


Volume 
Inventory 


This table contains record entries for each 
calculated transaction that the system attaches 

10 volume inventory nemo, udui uansacuon 

has a unique STID (transaction id) that are 
defined in the Engine JTransactiontist table. 
Indicators on this table determine the 
ojsposinon ot ine iransaQJun. 


31.0 


Engine_Transact:onList 


36 


SQL Server 


Volume 
Inventory 


This table contains record entries that define all 
of the transactions that can be calculated and 
stored in the Engine table. The STID field is 
the unique transaction identifier. 


32.0 


Gasinv 


159,501 


SQL Server 


Volume 
Inventory 


This is the primary table were ail volumes 
(nominated and actual) are maintained This 
table contains the header record entries that 
shows by montn, company, transaction, 
pipe/field & meter/well the nominated voium 
and the estimated actual volumes. References 
to pnce types, contracts, etc. are stored on 
each record. 


33.0 


GastnvO 


4,145,617 


SQL Server 


Volume 
Inventory 


This table contains the detail (DAILY) 
nominated and estimated actual volumes for 
the Gasinv table. 


34.0 

t 


Prodlnterest 


7,999 


SQL Server 


Volume 
Inventory 


This table contains a record that lists the 
production interests that are held for a given 
meter/well and contract (with date 
effectiveness). 


y 

5 
■ : 
■r: 


-t r rodPkg 


a non 
4,UoU 


SQL Server 


Volume 
Inventory 


This table contains a record that indicates (by 
month) the contract and the deal 10 of a deal 
that was generated automatically within the 

1 A . • La f 1 1 — ■ ijh| p.. ■ Mate * » & mtiwiit 

Avauaouity (equity purcnase aeai creation; 
area of the system. 


36.0 T\ 

F 

5 

L 


- ProdSum 


39,296 


SQL Server 


Volume 
Inventory 


This table contains records that indicate (by 
montn ana meter/weuj me gross rnrnoiu s ana 

Ik. Off * faHwn 
uio diu tauura. 


37-0 

f 


ProdVol 


44,187 


SQL Server 


Volume 
Inventory 


This table contains record entries (by month 

4n#4 motor AAM»m which show ihn nacrint and 
Helh/erv mmbtu's ner dav. 


. £ 




I I 




S 

3 * 

4 s 


j Operational 
1 Subject Area 
















40 r 


; AppticationMessages 


55,882 


SQL Server 


Operational 


This table contains a Toiling' 7 day listing of ail 
application messages (such as those that are 
Otspiayea to uis consols uunng a caicuiauori/. 


41.0 


ExceptionCategories 


8 


SQL Server 


Operational 


This table contains record entries to hold ail of 
the exception 'reasons' that will be used 
whenever an exception even oocurs. There 
can be multiple types of exception categories. 


42.0 


ExceptionList 


2,171 


SQL Server 


Operational 


This table contains entries for the actual 
exception events that get logged by the system. 
These represent an audit trail of non-normal or 
error type information. This table is linked to 
tne cxcepuonwaiegonBs laoie oecause eacn 
exception event (in this table) requires a reason 
category. 


43.0 


LogTabte 


4. 


SQL Server 


Operational 


This table is used for debugging purposes only 
and is not used in any screens or reports. 


44.0 


PrinterOef 


6 


SQL Server 


Operational 


This table contains a record for each available 
orinter (including driver and port). 
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Ret*. 


Table Name 


Rows 


Database 


Subject 
Area 


• Description>Commerrt5. ■ _. : ■ -^-j-^'i 


45.0 


RgasMonth 


1.440 


SQL Server 


Op rational 


This is a reference table that contains a record 
for each month from 1/1980 thru 12/2099. In 
addition, this table also contains the status and 

efafi te nnriata conn An CA ntimhftr fnr th A 

particular month. This status is used in order to 
enable/disable certain functions within the 
Energy Management System throughout the 
month. 


46.0 


RGasMonthStatus 


1,873 


SQL Server 


Operational 


This represents a historical audit table that will 

uo upuaicu every uwo uio iiiuiiui ly status iui a 
oh/An nradttetion month is moriffiArt /via trinners 

on the RgasMonth table). This provides a 
mechanism of identifying who & when the 
changes were for the status, over time. 


47.0 


! SEMessages 


1,251 


SQL Server 


Operational 


All system messages are stored in this table. 


48.0 


SEAudrt 




SQL Sen/pr 




1 nis lauio contains locuiu cnuics xor in 058 

events that are deemed 'auditable'. Some 
examples include 'Login' events, Actualization 

Uoianuny cvonutv oianuaiu rcpun suomission 

events, eta 


49.0 


SElmages 


2 


SQL Server 


Operational 


This table contains record entries that contain 
graphic images for the screen and reports used 
throughout the system. 


50.0 

c 


SELoeatinns 

dr 

1 
1 


3 


ouL oerver 


Operational 


This table contains record entries that defin 
the server paths (network folder locations) 
where certain key correspondence items are 
found. For example (report location, deaf 
correspondence, etc). 


51.0 i 

i 

¥ 


J SEPrQcefifiinaCodeTvDes 

! 


15 


wul oerver 


Operational 


1 nis taoie contains ine i ype cooes to tne 
reference table 'SEProcessingCodes'. An 
example is the type code of 'CONTRCTFRD* 

which Ha* crib Ait a rafMnnca rnWo fnr mntrnrf 

products. 


52.0 $ 


- SEProcessingCodes 


143 


SQL Server 


Operational 


This table contains reference codes for various 
fields used throughout the Energy Management 


53.0 I 

r 
r 


~ SERptsExecutedStats 


19,117 


SQL Server 


Operational 


This table contains record entries that lists the 
start and end date and times for all reports that 

umm submitted This Drat/ides statistics on 
how long to execute/eta 


54.0 ^ 

f 


I SERptsGroupitems 


218 


SQL Server 


Operational 


This table contains entries of each specific 
mnnrt that exists within a reoortina tah (amua\ 

within a specific reporting folder (category). 


55.0 


SERptsGroups 


36 


SQL Server 


Onoraftnnsil 
w^oiouui lai 


This tabta contains a list of all available 

reporting tabs (groups) within each reporting 
folder (category). 


56.0 


SERptsltemOetail 


123 


SQL Server 


Operational 


This table contains the Ust of all available 
reports within the system. 


57.0 


SERptsttemParms 


657 


SOL ^An/or 


Onofstinnsl 
wpoiaUOnaJ 


This tahlA contains rncurri Antrm« fnr aai*h 
1 1119 wuw UMiiouia iGWiu C3HU103 iwi caul 

report parameter for each report defined to the 
system. Options exist for substituting a 
different label name than actual parameter field 
name. 


58.0 


SERptsQueue 


5,667 


SQL Server 


Operational 


This table contains record entries for all 
'submitted' reports (report queue). When 

mnorts are nittamaticaih/ mmm/oH fmm tho 

system the record is removed from this queue. 


59.0 


SERptsQueueOistribute 


7,855 


SQL Server 


Operational 


This table contains entries that dictate how to 

distribute the OUtDUt Of rannrts fmm tho ntiona 

UwUlwyw vi to wui^iu ill icpui L9 1 IUI 11 UIO UU0U8 

(fax, email, printer, etc.). 


60.0 


SERptsQueu Notify 


276 


SQLServ r 


Operati nal 


This table contains entries that indicate who 
(and if) individuals or groups hav been notified 
that the report has finished. 


61.0 


SERptsSchedule 


0 


SQL Server 


Operational 


This table contains records that define specific 
schedules for the running of scheduled reports. 
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Reffr- 


• Table Name- # ;^v^^- p -: f - 




Database 


Subject; ... 
• ^ Area* 


r ~Desj^p^n/Comments 


62.0 


SERptsScheduledReports 




SQLServ r 


Operational 


This table contains record entries that define 
which reports to run as paitpf specific 
schedules. 


63.0 


SERptsScheduledGroups 


0 


SQLServ r 


Operational 


This table contains groups' for scheduling. 
This provides the ability to assign multiple 
individuals to a specific group and have the 
group belong to the schedule. 


64.0 


SERptsScheduledUserGroup 
s 


0 


SQLS rver 


Operational 


This is the actual table that contains the 
members within a schedule group. Each entry 
in this table defines the group. 


65.0 


SERptsTablesllsed 


896 


SQL Server 


Operational 


This table contains documentation on what 
tables, views or stored procedures are used 
within each report 










Pipes & Fields 
1 SublectArea 














80.0 


Met r 


4,335 


SQL Server 


Pipes and 
Reids 


This table contains a record entry for each 
well/meter that has been setup on the system. 
The pipe/field, name, county and state are 


81.0 


MeterNotes 


935 


SQL Server 


Pipes and 
Relds 


This table contains a record for notes pertaining 
to meters/wells. 


82.0 


PipeReld 


372 


SQL Server 


Pipes and 
Relds 


This table contains a record entry for each 
pip/field defined on the system. The company 
and the pipe/field description are stored here. 


83.0 MeterRates 


3,980 


SQL Server 


Pipes and 
Relds 


This table contains the entire pressure bas , 
Btu factors by effective date for specific 
meters/wells. 


84.0 %-MeterAllocations 


551 


SQL Server 


Pipes and 
Relds 


This table contains entries for the allocation 
information on the meter/well. This includes 
accounting cross-reference codes (id and 


t ^ 










* Pricing 

^SublectArea 






I 






90.0 H 

f 


.GCIndex 

=f 

% 
i 


141268 


SQLServer 


Pricing 


This table contains record entries by Day for 
dairy index prices AND/OR a single entry for 
monthly index prices (1° day of month for 
monthly indices). 


91.0 g 


j IndexRef 


228 


SQL Server 


Pricing 


This represents the master table of all defined 
price indices within the Energy Management 
System. One record entry per index exists 
within this table. 


. 92.0 


IndexBaskets 


14 


SQLServer 


Pricing 


This table contains a record entry for each 
index basket established on the system. These 
index baskets can be associated to sales or 
purchase deals just as normal indexes are 
associated to them. Simple averages are 
calculated with ail index items within an index 
basket 


93.0 


IndexBasketUnk 


36 


SQL Server 


Pricing 


This table contains the actual indices that are 
currently associated with an index basket An 
unlimited number of indices can exist in a 
basket A simple average of all the prices 
within the basket is used. 














.Routing,. -■„.,■......-.,. ... .. / - .,.;r.,^. 

Subject Area " ' ■ ■^\?^r~" ,' 














101.0 " 


LegR f 


4,226 


SQL Server 


Routing 


This table contains record for each unique 
transportation leg (meter-to-meter) on the 
Energy Management System. 
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Ref# 


Table Name 


Rows 


Database 


Subject* 
Area: 


Description/Comments ■•: : : / : - '• 


102.0 


Leg 


57,830 


SQL Server 


Routing 


This table contains a record for each active leg 
within a given month. Nomination and actual 
rates that the leg utilizes during the month are 
posted on each record. These rates are used 
with the actual routing instructions (LegOetail 
table). 


103.0 


LeqO 


0 


SQL Server 


Routing 


This table contains Uf i iONAL entries for any 
daily teg rates that need to be utilized within a 
given month. Daily rates are checked PRIOR 
to the monthly rates (on the Leg table) when 
setting up the actual routing instructions 
(LegOetail table). 


104.0 

£ 

0 


LegOetail 

1 
| 


1,716,695 


SQL Server 


Routing 


This table contains the detail routing 
instructions for all volumes purchased all the 
way through the sales points for that particular 
volume. Nomination AND actual routing 
instructions are stored for each meter/well that 
had volume activity during the month. All 
volumes sold can be tracked back to originating 
purchase points. 


105.0:1 

y 

F 

y 
c 


: WASPResovedRouting 


34,304 


SQL Server 


Routing 


This table contains record entries that show the 
pool level calculated totals for ail receipt and 
delivery points within the system. 'Common', 
'Dedicated 1 and 'None 1 pools are aggregated 
and the total numbers stored here. Only 
'Common' pool volumes and dollars represent 
the totals from more than one purchase point 
(shows weighted average pricing based on 
volumes purchased and/or transported). 














: t: 

A3 

8 » 


: Security 
* Subi ctArea 






















110.0|= 


: GCUser 


27 


SQL Server 


Security 


This table contains a single record entry per 
unique user (employee) on the system. The 
character based (up to 12 character) login ID 
AND an internal user id (Integer) are unique 
keys to this table. 


111.0 


GCButton 


58 


SQL Server 


Security 


This table contains records that represent the 
system functions that have specific security 
rules associated with them on the system. For 
example a system function of 'DEALS' has 
been setup in order to define security 
relationships between users (GCUser table) 
and this function. 


112.0 


GCSecurrty 


1,548 


SQL Server 


Security 


This table stores the relationships between 
users on the system (GCUser table) and the 
system function that they have access too 
(GCButton table). A specific access privilege is 
stored for each of these relationships (like 
READ ONLY, READ/UPDATE 
READ/UPDATE/DELETE or SUPER). 
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Referring now to FIGS. 3A-3N, depicted therein are entity 
relationship diagrams that illustrate data relationships among 
tables and corresponding table entries used to implement the 
systems and methods that carry out the business process 
illustrated in FIG. 1. The database tables used logically 
categorized above into the above-identified nine (9) subject areas 
are maintained within data store 106 (FIG. 1), and are included 
among the files present on the attached compact disc, and are 
further defined in detail in FIGS. 3A-3N. Those skilled in the art 
will readily understand the data relationships among relational 
database tables as shown in FIGS. 3A-3N. Accordingly, for 
purposes of brevity, further comments about FIGS. 3A-3N have 
been omitted. 

In addition to the tables described and specified in the 
tables listed above, the following table illustrates an inventory of 
the various database views that utilized by the systems and 
methods provided by the present invention. 



<THIS SPACE LEFT BLANK INTENTIONALLY> 
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View Descriptions 



Below is an inventory of the various database views that are utilized by th Energy Management System: 



Ref# 



View Name 



Description/Comments 



1.0 



2.0 



V SearchOB 



VAccountingRevenueFeed 



Provides a view to search the database stored procedures and triggers for specific text items. 
Used for ass essing the impact of system changes. 



Database view (3 select UNION) used for creating OGSYS journal and rev nue receivable data. 



3.0 



VCompany 



Display of company information (name, address, etc.) 



4.0 | Vcontact__Accounting 
5.0 



Display the accounting contact for a given company, 



Vcontact^Admin 
Vcontact Control 



Display the administrative contact for a given company. 



6.0 



Display the control contact for a given company 



Reffr 

7.0 



View Name 

Vcontact_Production 



Description/Comments: _ , .. „ „ _ 

SSeta rodU ^ Qn f ° ra 9iVen "^"y- ™» cantact ^edfaFAvailability 



2 u^i!! a ( reSponS * ,e for "n*™** volumes within a given company. This is the 
? Used for voiume en**™**™* 'he Availability pha se 



VcontactFunction 

VContacts 
VETIDJDates 



f ° r 8 g ™ — res P^ 8 *"ttons (accounting. 
Display nam e ano addresses for contactsT . 

SS^Vl^^S^ Start effective and end dates for a given engine transaction id (based on 
package). This view ts used VERY urri£ because of performance issues. 

Disolav list of riaih* uaI..^^, uik*— ^ ttz 




24.GH 1 



VMeterRates 



hS,^ *t^^ ** CUTOnt mBter *' elJ rates (standard pressure base, pipe/field pressure 
month eaCh gNm rnetB " weU - 77,838 rates can be different from month to 
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Once all software and data as described above has been 
properly installed on one or more server systems 102 and within 
one or more coupled (networked) client systems 104 as illustrated 
in FIG. 1, use and operation of the systems and methods provided 
by the present invention may be commenced. Such operations 
may be in relation to the general use application (Energy 
Management System - EMS) or the limited use/user/function 
application (Producer Control Console - PCC) provided on the 
attached compact disc. In either case, the present invention 
facilitates a client-server application environment that includes, 
among other things, a user interface that is pleasing to users and 
which permits easy and ready access to system functions and 
operations. Such a user interface may be a graphical user 
interface or GUI that is configured to permit a user to engage in 
window-operations to bring about database operations that affect 
fuel deal data and the like in accordance with the present 
invention. Such a GUI is illustrated by way of screen shots 
(images of computer monitor screens) that are used to permit 
generation of, manipulation of, reporting of , and all other system 
operations relating to fuel deals and corresponding fuel deal data. 

For example, reference is now made to FIGS. 4A-4Q which 
illustrate a data processing application running within a client 
system to facilitate at least some of the operations carried out to 
effect the business process illustrated in FIG. 1. FIG. 1, for 
example, represents an opening main menu screen through which 
a user may select "PERSONAL" operations related to setting up a 
personal profile to affect user-preferred presentation of data (e.g., 
name, screen colors, etc.). Additionally, a user may select 
"PRICE-INDEX" to affect fuel pricing and index related data. A 
user may select "COMPANY" to control lists of producers, and 
other related company entities. A user may select other options 
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corresponding to the steps involved and described with regard to 
the MONTH OF FLOW PROCESS illustrated and described with 
reference to FIG. 1. 

The other screen shots shown in FIGS. 4B-4Q further 
illustrate specific features of the GUI that has been designed to 
facilitate the implementation of the systems and methods provided 
by the present invention. For the purpose brevity, further detailed 
comments related to such screen shots has been omitted. 

SYSTEM IMPLEMENTATION AND FUNCTIONALITY 
As noted above, the present invention utilizes stored 
procedures in the form of database management system 
procedures and functions which are executed server-side and 
client-side to facilitate the present invention's systems and 
methods. Listed in the following tables, is a detailed break-down 
of all the stored procedures, tools, and modules used to facilitate 
such systems and methods. The actual source code and 
instructions contained with in such procedures, functions, and 
modules is contained on the attached compact disc. 

STORED PROCEDURES 
Below is an inventory of the various database-stored 
procedures (procedures and functions) that are utilized by the 
systems and methods provided by the present invention. Each of 
the stored procedures and functions are written in the Transact- 
SQL dialect. All of the stored procedures are prefixed with "usp_" 
which stands for "User Stored Procedure." This provides an 
ability to differentiate those procedures bundled with the DBMS 
versus those created for the systems and methods provided by 
the present invention: 
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Stored Procedures 



Below is an inventory of the various database-stored procedures (procedures and functions) that are utilized by 
the En rgy Management System. Each of these stored procedures and functions are written in the Transact-SQL 
dialect All of the stored procedures are prefixed with w uspJ* which stands for "User Stored Procedure". This 
provides an ability to differentiate those bundled with the DBMS versus those specifically created for the EMS 
application. 



Ref# 


Stored Procedure Name 


Description/Comments-' .^..-w 


1.0 


Usp_DaiiyCleanup 


This procedure is run everyday and is responsible for any cleanup activities (like 
roiling aqed messages off the AppiicationMessages table). 


2.0 


Usp_fGetCalcindex 


Retrieves the weighted average price for a given volume item. This routine is 
invoked during the WASP calculation in order to obtain the price for the 
meter/well and post it to the Engine database table. 


3.0 


Usp_fGetlndex 


Retrieves the daily or monthly price index for a given day. Used during the 
pricing calculation routine. 


4.0 


Usp_fGetlndexBasket 


Retrieves and calculates the index amounts for the price lines whenever an 
index basket price variable has been entered. This particular function will return 
the average price (simple average) of ail indices within the basket for a given 
month/day. 


5.0 


Usp_fGetNetbackPercentage 


This function will return the actual netback percentage to be used for a given 
production month and contract When it calculates the netback it looks at 
volumes and tier instructions that have been setup on the contract The numb r 
it returns is the netback percentage to utilize. In addition, this routine brings 
back the specific percentage to use for the product being calculated (gas. 
liquids, oil. etc.). 



3 = 

Ul 

ass. 

U 



s 
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Ref # | Stored Procedure Name 


□escrintinn/CAmm nt* MJBa 


6.0 UspJGetProdlnterestlD 


This routine brings back the production iMRst information fore particular 
ownership interest. ~~ 


7.0 


Usp_fGetProdPkg 


This nmrpHitro Hrinne har*fc thn 'rioal ifi' (if nnA affpadv eXtStS)*WhBn nostino 

volumes through the 'Availability* screens. If a deal does not already exist (in the 
current production month) then a new deal is created and that ID is sent back. 


3.0 


UspJGetWASPindicator 


This function accepts a deal id (package 10) as it's input It then reads the 

DeatClacc tahlo anri tho rDaalPfacc tahfo/cl tn Hotormina if this nartiraiiar deal 

should be considered WASPable based on its classification scheme. The return 
values are either 'None', 'Common' or 'Dedicated*. 


9.0 


Usp_fGetWasp Type 


ThlQ r\rr%n oo*i iro u/ill conH harV tho LA/A^D h/na fiaM //"^ AC OH nr 1 lOl II u/hon 

i ma pruccuure win senu oouv ino vvnor type neiu ^uno, wiu or uuuiuu/ wncii 
passed a specific product ID. This procedure is used during the calculation in 

Order to dotormtno. which set of nethack ruloc off a contract to use 


10.0 


Usp_flsLastDay 


This procedure accepts a date and sends back the last date in a production 
month. 


11.0 . UspJLastDay 


This procedure accepts a date and sends back the last date in a production 
month. 


12.0 


i Usp_fPipeContactlnfo 

! 


This nracerium u/hon nafiSAd a nine/field id will sens) back the soacific contact 

information requested (like accounting contact volume contact etc.). 


.13.0 Usp_GasDayToGasMonth 


This function will return the production month to use for a given production day. 


14.0 


Usp_GetProductVoiumeRound 


rhlQ rot if in a tuill rahim tha miinHinn nmricinn noraessnf uuhon f*9lf*f tistinn 

• ma fuuiine win return ine rounuing precision riBcessory wnsn coicuiaung 
volume information for specify products (OH calculates to 2 decimal places. Gas 
to zero ett i 


15.0 j UspJJnePrice 


This is the actual procedure that will calculate the Engine records for a given 
deal (volume related ST1D 8 or 9 type records). 


16.0 


Usp_message 


This routine handles ail of the 'progress' messages that are issued during the 
Micuiayon, rollover, acniauzanon, ano eic» type evema on ino system, i nis 

roiltino \AiHl AniMAnallu nm* thto information to thA AnnliratinnMAtQanot tahfo frtr 
iwuuuo win optionally pusi uiis iniwiiiiauoii lu ino /^ppuuouui itvifjoaay ca tauio iui 

historical reference (audit). 


17.0 4Usp_pActuai!ze BaiPurchases 


This is the main driver routine for Step 2 of 4 of the actualization process. 


18.0 j H£p_pActuaiize BalPurchasesCheck 

!* 

\Wi 


This routine will check to see if all of the meters/wells on a given pipe/field have 
ucen actual izeo, ir not, men n senos oacic a oao return coue. mji meiers/weiis 
are required to be 'checked' (actualized) prior to balancing of purchase routing 
points. 


19.0 


ysp^pActuaiize.BaiPurchasesCIaar 


rniQ rot if in a io tka a#*+t tat mi litnn that u/iil aHtttcf ail nnrr*foaeo motor imn.9f9nr*0e 

i ma luuune is uio scujaj rouuriB uiai wui adjust bji puiuioao i iiraicr irnoaioJiuco . 
These imhalanco* arm adiiJctoH forward THROUGH the sales ooint based on 

nomination routing instructions (used as a map). 


20.0 i Usp _pActualize BaiSales 


This is the main driver routine for Step 3 of 4 of the actualization process. 


21.0 


IJsp .jsActualize.SalSalesCheck 

01 


This routine will check to see if all of the purchase meters/wells routing balances 

(from cton 9 of A\ oro nafan/^ori If anv motoff/umll on thft otne/fieid is Olit of 

balance then this routine sends back a bad return code. All meters/wells on the 
pipe/field are required to be 'balanced* prior to balancing of the sales points. 


22.0 j gpp jActuaiize.BalSaiesCIear 


This nmroHuro io tho final i irnrnrinro tnvfllCAfi hu thn USB nArtliali70 SalSal^S 

main driver procedure. It Is responsible for posting imbalance amounts to the 
internal clearing purchase or sales deals. 


23.0 j |Usp_pActuaiize BaiSalesOver 

r 


ftiis nmroWum aitamntt tn rprnnrrffi anv ntitstandina Balances that ronutt in 

I 1119 ^1 UbCUUi B BUBIIIUO IO lOOUIIMMV Oil j UUUUUIUUiy UOIOIIIA3 UIOI IC9UI4 111 

OVER supplying of volume to a particular sale. Nomination information is used 
by this routine as a 'road map 1 on how to allocate this volume. 


24.0 


Usp_pActualize_BaiSalesUnder 


This nmrnHum afromrvto tn mrnnrilA anv oiitstandinn baiancss that roftutt in 

■ Ilia piUUiQUlO HHPr f IwtSr lw iBGUIIwAlO Blljf WUI9IOI lUII llf WSIflllWBa UIQi 1 CdUll III 

UNDER supplying of volume to a particular sale. Nomination information is used 
by this routine as a 'road map' on how to allocate this volume. 


25.0 


Usp jFHHndex 


Tnis nmroHum twill inttiatrro tho menfris within tho 'GCIndov' tahto with riaihf 
• iita yji uucUUiQ YVUI iniUBIKB uils lOwUius vwiuuii uio v*wti iuo* touio wiui uouy 

entries (for daily indices) and monthly entries (for monthly indices). The monthly 

record entries am onto on the first dav of the month. 

BilUlOa dlu wl lly wll UIO III Ok Wilf miw niwmi« 


26.0 | Usp_pFHIIndexSingfe 


This procedure will populate the 'GCIndex' table with a price index entry for a 
SINGLE index 

^•■■»*»Wfc» i 1 IU6A » 


27.0 


Uspj)GaslnvD_Fi!l 


i his routine initially populates the daily volumes on the GasinvD table. These 
are initially populated with zeros (anytime a meter/weil Is added to a deal). 


28.0 


Usp_pGasinvDJMomEOM 


•ThfS rntitino ie neo/4 in tho 'Auailahilitv 1 area of thA EMS cvofom anri t4 tiQort to 

take a oKren volume amount and Drooaoate that volume amount to all davs in 
the month. 


29.0 


Usp_LogAuditlnfo * . 


This routine is used to post record to the audit table within the system. 


30.0 


Usp jpPackageRevision 


This routine is used to increment the revision number field on the deal. Certain 
types of changes to a deal will automatically increment the revision number on a 
deal and this update is done through this routine. 



23 B 



Ref# 


Stored Procedure Name 


DescriDtion/Comm nts- . = 


31.0 


UspjaPostCIassificationRules 


This procedure is executed (usually by triggers on the rOealClass and 
rOeafClassA tables). It can be executed stand-alone. This procedure will 
ensure that a record is created in the rOealCIassRules table for ev ry 
combination of deal classification codes (dcA values on the rOeatCIassA table). 


32.0 


Usp_ProaPush 


This routine is used in the 'Availability 1 phase of EMS and is used to initially 
populate a particular month with ownership interest Information, by meter/well. 


33.0 


Usp _pPushMeter 


• This routine is used in the 'Availability 1 phase of EMS and is used to populate a 
single meter/well ownership interest to its respective deal (package) and voium 
inventory item (Gastnv/GaslnvO). 


34.0 


Usp_pRouteBuildLegHistory 


This routine creates the 'Leg' records for a given meter/weil. When a new route' 
(LegRef) is defined on the system then this routine will get invoked to initially 
seed the 'Leg 1 table with entries in order to allow routing. 


35.0 


Usp jjRouteBuildLegHistoryAII 


This routine gets invoked when a production month is initially opened to the 
'Sales' phase. All ACTIVE meters and legs will have their respective Leg 1 table 
records oopulated for that production month by this routine. 


36.0 


UspjjRouteCopyLegHistoryActuals 


This routine gets invoked when the status of a production month changes from 
'Sales' to 'Invoiced'. All nomination routine instructions (in the 'LegDetaif table) 
are then copied by this routine. This provides the mechanism to have actuals 
different than noms while preserving the nom instructions. 


37.0 


Usp _pRoutePostChange 


This procedure gets invoked whenever a change to a specific route is requested 
(i.e. modifications of volumes between hops). 


Jo.U 


Usp_pRoutePostDeailnfo 


This procedure gets invoked to 'seed' the 'LegOetaii' table with routing 
information. This is invoked when new meters/wells are added to deals. 


39.0 


Usp _pRoutePostDeailnfoVois 

□ 


This procedure gets invoked to populate the specific volumes on each of the 
'LegDetaii' entries (daily) for deal inventory items. 


40.0 . 

1 


gUsp jjRoutePostDelete 


This procedure gets invoked whenever a deletion is requested on the routing 
(LeqOetaii) information. 


41.0 * 


t!Usp _pRoutePostLegRates 

Li 

n 


This procedure gets invoked In order to post the rates (fuel. pvr t transport 
gathering, etc) to each of the 'LegOetaii' records in the database. Daily rates 
(LegO table) overrides monthly rates (Leg table) and this procedure ensures that 
priority. If a rate gets changed for a leg this routine gets invoked to update all 
existing routes (LegOetail) records. 


42.0 !* 

• I 


Usp _pRoutePostSale 


This procedure gets invoked in order to post volume (route it) to a sales item (in 
the LeqOetaii table). 


43.0 i Uspj?RoutePostTransport 


This procedure gets invoked in order to post volume (route it) to a transportation 
point (in the LeqOetaii table). 


44.0 IpUsp^pRouteRemoveLegOetaits 


This routine will remove any/all 'LegOetail' (routing instructions) when a 
meter/well for a specific deal is removed. 


45.0 II 


HJsp_pSERPT_GetAdditionalReportlnfo 
0 " 


This routine is used by all of the 'standard* reporting procedures to obtain 
specific report fields needed when running a standard report 


46.0 j 


□UspjjSERPT.PostReportToCorrespondence 


This routine will post a 'PackageCorrespondence' table record to a particular 
deal that is affected by the 'standard* report being run. This routine is called by 
all standard report routines. 


47.0 


Usp j)SERPT_PostReportToDistribution 


This routine will post a report distribution request to the SERptsQueueOistribute 
table. This is either a request to 'PRINTER*, 'EMAIL' or 'FAX*. 


48.0 


UspjSERPT^PostReportToQueue 


Tuts routine is used by all of the standard report routines and will post an actual 
report reauest (queue item) to the SERptsQueue table. 


49.0 


UspjDSERPT_RunReportAvailConfirms 


This routine is responsible for running the 'Availability' confirm reports. 


50.0 


Usp_pSERPT_RunReportAvaiiEstimates 


This routine is responsible for running the 'Availability' estimate reports. 


51.0 


Usp _pSERPT_RunReportDeaiConfirm 


This routine is responsible for running the deal confirmation reports (from the 
deal detail screen on EMS). 


52.0 


UspjSERPT_RunReporttnvoice 


This routine is responsible for running all standard invoice reports. 


53.0 


Usp_pSERPT_RunReportRemrttance 


This routine is responsible for running all standard remittance reports. 


54.0 


Usp_pSERPT_RunReportVoucher 


This routine is responsible for running all standard voucher reports. 


55.0 


Usp_pSERPT_SetAParametereoolean 


This routine is used by the standard reporting routines and converts Boolean 
parameters for postinq on the report queue (SERptsQueue) table. 


56.0 


UspjSERPTjSetAParameterOate 


This routine is used by the standard reporting routines and converts date and 
date/time parameters for posting on the report queue (SERptsQueue) table. 


57.0 


UspjSERPT_SetAPararneterOedmal 


This routine is used by the standard reporting routines and converts decimal 
(number) parameters for postina on the report queue (SERptsQueue) table. 


58.0 


Uspj)SERPT_SetAParametertnteger 


This routine is used by the standard reporting routines and converts integer 
number parameters for posting on the report queue (SERptsQu u ) table. 


59.0 


Usp_pSERPT_SetAParameterString 


This r utine is used by the standard reporting routines and converts string 
parameters for posting on the report aueue (SERptsQueue) tab! . 
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Ref#~ 


Stored Procedure Name • 


Description/Comments? - •= 


60.0 


Usp_pSERPTJ/VhichReport 


This routine is used by the standard reporting routines and isyesponsible for 
determining WHICH report to use. The default reports are in KreportOefaults 
table. How ver t any given contract can overnde the default (KreportOv mdes 
table). 


61.0 


Usp_PSPrice 


This is the main pricing routine for the volume inventory items (regular 
purchases and sales). 


62.0 


Usp.PSPriceAll 


This is the main procedure for calculating the prices for a given month on a set 
of deals (volume inventory pricing, ST1D 8 & 9). Parameters to this stored 
procedure dictate the type of price to calculation (Norn or Pipe/Field Actual and 
Sales versus Purchase, eta). 


63.0 


Usp_PSPriceAnyNewinvoicesNeeded 


This routine is responsible for assigning new invoice and remittance numbers to 
the volume inventory table (Gasinv). If new meters/wells (volume entries) get 
entered during the actualization process then this routine will ensure they are 
assigned unique numbers. 


64.0 


Usp_PSPriceAssigninvoiceNo 


This routine assigns invoice numbers to all sales deals when the production 
month is promoted to the 'Invoiced' phase. 


65.0 


Usp_P.SPriceAuto 


This procedure run everyday and checks for any production month either in the 
'Sales' or the 'Invoiced' phase. If any production months are within these 
phases then this procedure will invoke the calculation routine 
(usp_psPriceAutoMonth) for them. 


66.0 1 Usd PSPriceAutoMonth 


This is the main driver routine for the calculation of an entire month. 


67.0 


Usp_PSPriceComponentsCheck 


This procedure will automatically insert system generated price components (like 
WASP or Netback Percentage) to the Engine.Master table. It is invoked by the 
usD_PSPricei procedure when calculating prices on a deal for a given month. 


68.0 pUsp.PSPriceCost 


This is the routine that calculates the Other Cost entries and posts calculated 
results in the Engine table. 


69.0 ^Usp^PSPriceCostAII 


This is the main driver routine for looping through all of the 'Other Costs' in a 
given month and invoking the usd PSPriceCost routine for each one. 


70.0 pUsp^PSPriceCreateActualEntries 


This procedure copies the pricing entries setup on each deal 
(Engine MasterPrice) from nom to actuals. 


71.0 

j 


□Usp.PSPriceMarkActualAdjustments 

553 
S 


This procedure gets invoked by the calculation routine to marie any volume 
inventory item (Gasinv) whenever a difference is detected between nominations 
and actuals. 


72.0 


Usp.PSPricePopuiateEngine 

3 


This procedure will populate the Engine table. FROM the £ngine_Master table. 
For daily index price entries this procedure will automatically propagate the daily 
index price to all days of the month where there is a volume (at least until an w 
pricing entry is found). Only volume entries are populated here (ST1D 8 & 9). 


73.0 | 


\ psp.PSPriceTransportAII 


This routine calculates all of the transport costs for a given production month. 
These transport costs (and volumes) are posted In the Gasinv (pricetype=3) 
table and deals are posted (if needed). These deals are tagged with the specific 
transport contract 


74.0 ; 


JJsp.PSPriceWASPCaic 


Determines and resolves ail wasp 'Common' and 'Dedicated' pools. Dedicated 
pools are sanctioned sales. This is the main driver procedure for the wasp 
portion of the calculation. Third party (pool » 'None 1 ) are also processed within 
this procedure but not for the intent of obtaining a price for them, totals used 
primarily for profit margin reporting. 


75.0 


Usp _PSPriceWASPCalcResotveOriver 


This is the main driver component for driving the WASP calculation. 


76.0 


Usp.PSPriceWASPCalcResotveN 


Traces back sates totals from all sales meters back to their originating purchase 
points. The table updated here is the WASPResoivedRouting table. The 
'LegOetaii* table is used extensively in this calculation. This is a highly 
ITERATIVE process. 


77.0 


Usp_PSPriceWASPCalcResotveSalesN 


This procedure creates the entries in the WASPResoivedRouting table and 
posts original sales volumes and amounts. This is done just prior to the routine 
that resolves these sates totals back to the purchase points. 


78.0 


Usp_PSPriceWASPCalcSalesN 


Sums all WASPable sates by sales meter into the WASPSalesMeterTotals tabl . 


79.0 


Usp^PSPriceWASPCleanVlonth 


This routine runs when a production month is promoted to 'Completed' phase. 
Any volume inventory items (Gasinv and/or GaslnvO) or routing items 
(LegOetaii) that contain zeros are removed so that only relevant information is 
stored In the database for historical purposes. 


80.0 


Usp.PSPriceWaspOivieOutProceedsN 


This procedure is the main procedure that will distribute the proceeds from those 
deals that have been designated to have their respectiv proceeds distributed 
via the 'Financial Overrides' setup on the deal. 


81.0 


Usp_ProdVotSet 


This routine is used in the 'Availability' pnase to setup the own rship interest on 
a particular pipe/field and meter. ProdSum and ProdVol tables for the current 
production month are populated with this procedure. 
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Ref#: 


Stored Procedure Name 


Description/Comm nts : - 


82.0 


Usp_ProdVoiS tAII 


"This routine is used in the 'Availability 1 phase to setup the ownership interest on 
all pipe/fields and m ters. Thisroutin invokes the usp.ProdVolSet routine for 
each meter/w II in the loop. 


83.0 


Usp_PSRoiiover 


This routine gets invoked when a production month goes from 'Availability' to 
'Sales' and is responsible for copying deal information month-to-month. 


84.0 


Usp_PSRollov rPopActuais3 


This routin gets invoked by the usp_PSRollover routine and is responsible for 
populating noms with previous 3 months actuals numbers (primarily used for 
Oil). 


85.0 


Usp_PSRoiioverPopNoms 


This routine gets invoked by the usp_PSRollover routine and is responsible for 
populating noms with previous months nom numbers. 


86.0 


UspjStatusChanged 


This routine gets invoked anytime the production month status is changed 
(Initial^vailability.SaiesJnvoiced^ccounting.Completed). Other routines are 
invoked depending on the from and to status for the production month. 


87.0 j Usp w.* 

i 

i 
i 


Any stored procedure that begins with Usp_w_ has been setup as a one time 
only procedure that is used to correct any database items/etc. These 
procedures can be permanently deleted and have no impact on existing 
functions within EMS. 



Application Software 



Technical Skill Set Required 



Support and maintenance of the Energy Management System requires the following technical skill set 



Ret # ^SklJISet 


Used For... 


1 .0 fcsQL-Server (Transact SQL) 


All data is stored in MS SQL-Server database tables. This data is accessed via direct SQL 
statements (embedded in windows applications, stored procedures and reports). There are 
several database views that have been setup to access aggregated information (for performance 
and consistency). In addition all of the critical calculations and time consuming procedures (lik 
the main EMS calculation, routing and rollover process) are written as Transact-SQL stored 
procedures (and documented In this manual). 


2.0 ^Delphi <V5 +) 

" (includes Delphi 3* party toots) 

□ 


All client applications are written using this particular RAO toot.* In addition to knowing the 
standard components that come with this tool, any of the 3* party toots (documented in this 
manual) are used extensively. See the 3 n> party toots listed in the Tools Utilized' section for mor 
details. 


3.0 1 1 ^Crystal Reoorts < V8.0) 


All reporting within EMS is done utilizing this tool from Seagate software. 



m 

Clie^p Server Applications w/Tools Utilized 

This particular section contains the high level documentation relative to the Energy Management System software 
application. Each item documented is uniquely numbered to aid in reviews and/or future modifications. 



R f# 


Item 


Response 


Comments I 


1.0 


Client Application 


Energy Management 
System 


The Energy Management System is written in Oelphi 5 
(service pack 3 applied). Third party controls and 
components were used in the development See other 
areas of this matrix for 3* party toots utilized. 


2.0 


Client Application 


Producer Control 
Center 


The Producer Control Center is written in Delphi 5 (service 
pack 3 applied). Third party controls and components were 
used in the development See other areas of this matrix for 
3* party tools utilized. This application provides a restricted 
view of information specific to the company/contact that is 
running the application. The data viewed is the same data 
that is maintained in the EMS system. 


3.0 


Server Application 


Software Exp its, Inc. 
SECrystal (V8.00) 


All reporting done witnin EMS utilizes Crystal reports. This 
server application runs and stores all output reports for the 
system. Besid s storing an electronic copy of the report, 
this serv r can distribute to a printer fax folder OR an email 
address if instructed by the EMS application. 


4.0 


Server Application 


Software Experts, Inc. 
SEFax (V2.00) 
(outbound faxing) 


Some output reports (from SECrystal) are d signated to be 
faxed. This software is responsible for faxing all of the 
reports that were designated by EMS to be faxed. 



23E 



Ref# 


Item- ^Hrcesponse 


• Comments: - .^^R- ----- 


5.0 


Server Application 


Software Experts, inc. 
SEServer (V2.00g) 
(database request server) 


nil uduxOdsa requests Tor ins Ejitsiyj ivianagerneni oysicm 
AND the Producer Control Center go through this database 
serv r component This serv r application typically runs on 
the same machine as the actual database. 


6.0 


o rarty rooi/uorary 


Adobe 

Acrobat Reader (V4.0 +) 


This f re tool is used to view reports from EMS. The default 
tor au reports is 10 pnnt mem 10 a rur lurrnaL i nis output 
format is 'overrideable' by the user when the report is 
submitted. Other formats like Excel, Word, Text etc. are 
also supported. 


7.0 


3 ro Party Tooi/Library 


Seagate Software 
Crystai Reports (V8.00) 


mii reports are written using me orysiai repomng 1001 rrom 
Seagate Software). In addition, the report server 

fS£Crvstah uttli7A* thA main <^rv*rtal rAnnrrinn PRPP nintimo 

libraries to run these reports for ail EMS client reauests. 


80 


3*° Party Tooi/Library 


Daico Technologies 
uouvernet (V2..00) 


Delphi VCL components that provide internet (TCP/IP) 
access. The SEServer application utilizes this middleware. 


9.0 


3 W Party Tooi/Library 


TurboPower Software 
Asynch Pro (V3.04) 


i ne ocr ax i am server appucauon uuiizes mis o parry 
Delphi VCL component list for sending and/receiving faxes. 
The SECrystal reporting server application uses this library 
to write out 'fax read/ files. 


10.0 


3™ Party Tooi/Library 


TurboPower Software 
Orpheus (V3.08) 


Many of the online screens for all client and server 
applications utilize the Orpheus controls for screen grid lists, 
combo boxes, eta The server applications were written with 

thie fnnl cot qIca 


11.0 


3'° Party Tooi/Library 


TurboPower Software 
SysToois (V3.02) 


Many of the online screens for all client and server 
applications utilize the SysToois components for string 
manipulations, spawning tasks, eta 


12.0 ff 

u 


i3 ,u Party Tooi/Library 

J ... 


Woll2Woll Software 
InfoPower 2000.17 


Many of the online screens for all client and server 
applications utilize these controls for screen grid lists, 
combo boxes, etc The server applications were written with 


13.0 £ 

i? 


J3™ Party Toot/Library 


Inner Meaia. Software 
Dynazip (V4.00) 


These are Delphi software components that are for 
compression/decompression of files to and from the serv r. 


14.0 =T3 ,U Party Tooi/Library 


Public Domain 
TEmail(V2.10) 


This is a Delphi software component and Is used by the 
client and server applications. It is responsible for the email 


'15.0 3 3™ Party Tooi/Library 


TMS Software 


This is a Delphi software component that provides for 'over 
the internet* automatic software upgrades. The dient 
applications each utilize this component 


16,0 ^3 <y Party Tooi/Ubrary 


Skyline Software, Inc. 
ImageLib Suite (V5.00) 


These are Delphi software components that provide for 
graphic images displayed within the application. In addition, 
this software provides scanner input capabilities. 



CuenB^ppucations, Module List/Descriptions 



This particular section contains the high level documentation relative to each software application module within 
the Energy Management System. Each item documented is uniquely numbered to aid in reviews and/or future 
modifications. The application reference listed below will either indicate EMS (Energy Management System) 
and/or PCC (Producer Control Center). This shows the level of interoperability between these two client 
applications. All of these modules are written in Delphi (Object Pascal, (Visual)). 



R f * 


Module Name 




Description/Comments? 


1.0 


OBAddress 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the Address ('Company and Contact 
Addresses) table. 


2.0 


OBCommonOatabase 


Data Module 


EMS 
PCC 


This module is responsible for setting all of the common 
properties for ali other data modules within the system. 
Prior to invoking a query, all other database modules will 
invoke methods within this module to set communication 
ports, maximum number of records, eta This module also 
stores the actual user id and contains methods for 
accessina this field. 
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Ref# 


- Module Name 


Module Type 


Application 


Description/Comments. ~ , - ~. 


3.0 


DBCommonFil Operations 


Data Module 


EMS 
PCC 


This module handles ail of the 'flat file'-operations 
(compressing/decompressing/etc.) that is involved with the 
applications. Any temporary files that need to be created 
are also controlled by this data module. 


4.0 


DBCompany 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the Company ('Company Information') 
table. 


5.0 


DBContactFunction 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the ContactFunctton ('Roles within their 
respective companies that contacts play 1 ') table. 


6.0 


OBContacts 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the Contacts ('Individual contacts within 
companies') table. 


7.0 


DBContactGroup 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the ContactGroup (Links contacts to 
groups they may be affiliated with) table. 


8.0 


DBContact_GroupNames 


Data Module 


EMS 


This module contains all of the database communication 
components for the Contact J3roupNames (table contains 
a record for each areuo within the svstem) table 


9.0 


DBEngine 


Data Module 


EMS 


This module contains all of the database communication 
components for the Engine (contains transaction records 

for each volume im/antorv transaction item associated with 

the deal) table. 


10.0 


DBEngineJvlaster 


Data Module 


EMS 


This module contains all of the database communication 
cnmnonents far the £naine> Master ( User enterahle nrieina 
area 'header' record) table. 


11.07 


: DBEngine_MasterPrice 


Data Module 


EMS 


This module contains ail of the database communication 
comoonents for the Enaine MasterPrice (User enterable 
pricing area 'detail* records (price tags)) table. 


12.0 4 

u 


: DBEngine_TransactionList 


Data Module 


EMS 


This module contains all of the database communication 
comoonents for the £nains Trans action List (transaction 
descriptions) table. 


13.0^ OBExceptionCategories 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the ExceptionCategories ('Reasons for 


14.0 1 DBExceptionList 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the ExceptionUst ('Actual Exception 
Events) table. 


15.0 W DBGaslnv 

n| 


Data Module 


EMS 


This module contains ail of the database communication 
components for the Gaslnv (Volume inventory 'header*) 
table. 


16.0 ^ DBGaslnvD 


Data Module 


EMS 


This module contains ail of the database communication 
components for the GaslnvO (Volume inventory Daily 
'detail') table. 


• 17,0 


DBGCButton 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the GCButton ('Business Functions') 
security table. 


18.0 


DBGClndex 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the GCIndex (Daily & Monthly Price 
Indices) table. 


19.0 


OBGCSecunty 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the GCSecurity (Security Authorizations) 
for the applications. 


20.0 


OBGCUser 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the GCUser (User Profiles) table within the 
applications. 


21.0 " 


OBImages 


Data Module 


EMS 


This module contains all of the database communicati n 
components for the SEImages (company Ioqos. etc.) table 
within the application. 


21.0 " 


DBIndexSasketUnk 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
compon nts for the IndexBasketLink (Links actual indices 
to a particular basket) table within the application. 


22.0 


DBIndexBaskets 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
compon nts for the IndexBaskets (Grouping of indices to 
be used in a 'simple' averaging calculation) table within the 
application. 
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Ref# 


Module Name ^Bdule Type 


Application 


Description/C^pnS" ~" ' 


23.0 


OBlndexRef 


^TTata Module 


EMS 
PCC 


This module contains all of the dataDase-communicanon 
components for the IndexRef (Each price index within the 
system contains a record entry h re) table within the 
application. 


24.0 


DBK 


Data Module 


EMS 


This module contains all of the database communication 
compon nts for the K (Contracts table within the 
application). 


25.0 


OBKNetBacK 


Data Module 


EMS 


This module contains all of the database communication 
components for the KNetBack (Contracts Netback 
Percentage Tiers) table within the application. 


26.0 


OBKNotes 


Data Module 


EMS 


This module contains all of the database communication 
components for the KNotes (Contract Notes) table within 
the application. 


27.0 


DBKProducts | Data Module 

i 

I 


EMS 


This module contains ail of the database communication 
components for the KProducts (products that are available 
within contracts) table within the application. 


28.0 


DBKReportDerauits 


Data Module 


EMS 


This module contains ail of the database communication 
components for the KReportDefautts (standard report 
defaults) table within the application. 


29.0 


DBKReportOverrides 


Data Module 


EMS 


This module contains ail of the database communication 
components for the KReportOverrides (standard report 
overrides for a contract) table within the application. 


30.0 


DBKServices 


Data Module 


EMS 


This module contains all of the database communication 
components for the KServices (services that are available 
within contracts) table within the application. 


31.0^ OBLeg 


Data Module 


EMS 


This module contains ail of the database communication 
components for the Leg (available routes and rates for the 
production month) table within the application. 


32.0 J 

•J 


*DBLegO 

§ 


Data Module 


EMS 


This module contains ail of the database communication 
components for the LegO (available DAILY routes and 
rates for the production) table within the application. 


33.0 m OBLegOetail 


uata Module 


EMS 


This module contains ail of the database communication 
components for the LegOetaii (specific routing instructions 
for all volumes purchased and sold) table within the 
application. 


34.0 jU DBLegRef 

w I 


Data Module 


EMS 


This module contains ail of the database communication 
components for the LegRef (master list of routes and rates) 
table within the application. 


35.0 ^ DBLocations 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for SELocations (locations) table within the 
application. 


36.0 ^ OBMessages 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SEMessages (system messages) table 
within the application. 


37.0 r 


-DBMeter 


Data Moduli* 


EMS 


This module contains ail of the database communication 
components for the Meter/Well table within the application. 


38.0 


DBMeterAllocations 


Data Module 


EMS 


This module contains ail of the database communication 
components for the MeterAllocations (ownership interests 
in volume from a meter/well) table within the application. 


39.0 


OBMeterNotes 


Data Module 


EMS 


This module contains ail of the database communication 
components for the MeterNotes table within the 
application. 


40.0 


DBMeterRates 


Data Module 


EMS 


This module contains all of the database communication 
components for the MeterRates (pressure base, Btu factor, 
etc from a meter/well) table within the application. 


41.0 


DBMiscQuenes 


Data Module 


EMS 
PCC 


This module contains ail of the miscellaneous queries that 
were created to enable views of various tables within the 
application. 


42.0 


OBPadcage 


Data Module 


EMS 


This module contains ail of the database communication 
components for the Package (Deals) table within the 
application. 


43.0 


OBPadcageCorrespondence 


Data Module 


EMS 


This module contains all of the database communication 
components for the PackageCorrespondence ( lectronic 
copies of documents associated with deals) table within 
the application. 
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Ref*~ | Module Name 


mpiuui type 


Application 


Deacription/CoTWlRnts 


44.0 


DBPackageCosts 


Data Modui 


EMS 


This module contains aii of the database-communication 
components for the PackageCosts ('Other Costs' . 
associated with deals) table within the application. 


45.0 


DBPipeField 


Data Module 


EMS 


This module contains ail of the database communication 
components for the PipeFteld (Pipe/Field information) table 
within the application. 


46.0 


DBPriceComponents 


Data Moaule 


EMS 


This module contains ail of the database communication 
compon nts for the PriceComponents (tags to associate to 
each portion of a price) table within the application. 


47.0 


DBPriceDesc 


Data Module 


EMS 


This module contains all of the database communication 
components for the PriceOesc (Deal free form price 
description) table within the application. 


48.0 

i 


DBPrinterDef 


Data Module 


EMS 


j This module contains ail of the database communication 
1 components for the PrinterOef (printer definitions) table 
within the application. 


49.0 | DBProcessmgCodes 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SEProcesstngCodes (reference code 
description) table within the application. 


50.0 


OBProcessingCodeTyes 


uata Module 


EMS 


This module contains all of the database communication 
components for the SEProcessingCodeTypes (type codes 
that classify sets of reference codes) table within the 
application. 


51.0 


OBPr ducerMessage 

i 


Data Module 


PCC 


This module contains aii of the database communication 
components for the ProducerMessage (dynamic messages 
posted to producers) table within the application. 


52.0 i DBProalnterest 


Data Module 


EMS 


This module contains ail of the database communication 
components for the Prodlrrterest (Availability royalty 
interests) table within the application. 


! 53.0 i 


gDBProdPKG 

3 


Data Module 


EMS 


This module contains ail of the database communication 
components for the ProdPKG (Availability deal ID to 
ProdVol cross reference) table within the application. 


54.0 i 


= tDBProdSum 


Data Module 


EMS 


This module contains ail of the database communication 
components for the ProdSum (Availability summary totals 
by meter/well) table within the application. 


55.0 I 


K DBProdVoi 


Data Module 


EMS 


This module contains ail of the database communication 
components for the ProdVol (Availability detail owner 
interest totals by meter/well) table within the application. 


56.0 ODBrOeaiClass 


Data Module 


EMS 


This module contains ail of the database communication 
components for the rDeaiCIass (All of the available deal 
classifications) table within the application. 


57.0 ! 


^DBrOeaiCIassA 

3 


Data Module 


EMS 


This module contains all of the database communication 
components for the rOeaiClassA (all possible answers 
available to the deal class rules (rOealCIass table)) table 
within the application. 


58.0 


DBrDealCIassRules 


Data Module 


EMS 


This module contains all of the database communication 
components for the rOeaiClassRules (ail rules associated 
with every combination of deal classification) table within 
the application. 


59.0 


DBrGasMonth 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the fGasMonth (an entry exists here for 
every possible month within the system, with status 
Information) table within the application. 


60 0 


DBRptsControl 


Data Module 


EMS 
PCC 


This module represents the main driver module for 
submitting reports. 


61.0 


OBRptsExecutedStats 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsExecutedStats (Execution 
statistics for reports) table within the application. 


62.0 


DBRptsGroupltems 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsGroupitems (List of reports 
available within each tab/folder) table within the 


63.0 


DBRptsGroups 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsGroups (List of all tabs within 
each reportino folder) table within the application. 
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Ref# 


' Module Nam© ^HEuieTvco 


Application 


Deacriotion/C^^Ptnts 


64.0 


OBRptsitemOetaif 


uata Module 


EMS 
PCC 


This module contains all of the databasexommunication 
compon nts for the SERptsltemOetaii jfList of specific 
reports available throughout all folders and tabs) table 
within the application. 


65.0 


DBRplsitemParms 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsltemParms (List of all report 
parameters available to each specific report) table within 
the application. 


66.0 


OBRptsQueue 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsQueue (actual report 
submission queue) table within the application. 


67.0 


OBRptsQueueOistribute 


Data Module ~" 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsQueueOistribute (report 
distribution instructions area) table within the aopfication. 


68.0 


DBRptsQueueNotify 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsQueueNotrfy (report notification 
instructions area) table within the application. 


69.0 


DBRptsScheaule 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsSchedule (report schedule 
definition area) table within the application. 


70.0 


DBRptsScheduiedReports 


Data Module 


EMS 
PCC 


This module contains ail of the database communication 
components for the SERptsScheduledReports (reports 
belonging to schedule definition area) table within the 
application. 


71.0 

c 


DBRptsScheduleGroups 

3 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsScheduleGroups (report 
schedule groups definition area) table within the 
application. 


72.0 [ 

3 


LJ DBRptsSchedui eUserGroups 

i 

f t 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsScheduleUserGroups (user list 
belonging to a specific schedule group definition area) 
table within the application. 


73.0 % 
i 

1 


^DBRptsTabiesUsed 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for the SERptsTabiesUsed (tables, views and 
stored procedures used by each report area) table within 
the application. 


74.0 z 

f 


„DBStoredProcedures 

n 
3 


Data Module 


EMS 
PCC 


This module contains all of the database communication 
components for accessing and invoking ail stored 
procedures and functions on the application. Each of 
these procedures are setup as methods within this dass 
and this particular dass acts as a common wrapper for 
invoking these DB procedures. 


75.0 \ 


=JRTCrystalDriverParseMemo 


Business Rules 


EMS 
PCC 


This module contains all of the string parsing routines used 
to store reporting parameters, formulas and selection 
criteria. 


.76.0 


RTDBAddress 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
addresses (Address table) are within this particular 
module. 


77.0 


RTDBCompany 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
companies (Company table) are within this particular 
module. 


78.0 


RTDBContartFundion 


Business Ru1a« 


EMS 
PCC 


All business rules and edits associated with the application 
contact function (ContactFunction table) are within this 
particular module. 


79.0 


RTDBContaas 


Business ftula^ 


EMS 
PCC 


All business rules and edits associated with the application 
contacts (contacts table) are within this particular module. 


80.0 


RTDBContact_Group 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
contact group relationships (ContactGroup table) are within 
this particular module. 


81.0 


RTDBContact.GroupNames 


Business Rules 


EMS 


All business rules and edits associated with the application 
contact group names (Contact_GroupNames table) are 
within this particular module. 


82.0 


RTDBEngine 


Business Rul s 


EMS 


All business rules and edits assodated with the application 
engine pridng transaction (Engine table) are within this 
particular m dule. 
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Ref # 


Module Name 




~~| DescripEon/Coi^^Btsv • 


83.0 


RTOBEngineJtfaster 


^MIL JJ HulLJ 


EMS 


mm uusiness ruies oRu eons assouoicu joriin trie appucauon 
ngme pricing entry (Engine_Master table) are within this 
particular module. 


34.0 


R 1 DdEngineJWasterPrice 


Business Rules 


EMS 


All business rules and edits associated with the application 

engine pnang components \w/pnwe loua; cinry 

(Engin JWasterPrice table) are within this particular 
module. 


85.0 


R i uBEngine_TransacaonUst 


Business Rules 


EMS 


mm □ us in ess ruies ano eons assoczaieu wnn ins appiicauon 

ngine transaction master fist (EngineJIYansactionList 
table) are within this particular module. 


86.0 


R i udExceptionCategories 


Business Rules 


EMS 
PCC 


Mil Business ruies ano eons associated wiui ine appiicauon 
exception categories (ExceptionCategories table) are 
within this particular module. 


87.0 


RTDBExceptionList 


Business Rules 


EMS 
PCC 


AH hticinp<i4 ntln^ anH aHrte annftrizit&fi with tha anniiratinn ' 

exception list (ExcepuonList table) are within this particular 
module. 


88.0 


RTDBGasinv 


Business Rules 


EMS 


Alt hi icinocc ri Hoc anH aWite acennataH u/ith tha qnnli<*4tMN 
Mil ousiness fuies aim crUILS aMwUdlcu wiui ine appiicauon 

volume inventory transaction header (Gaslnv table) are 
within this particular module. 


89.0 


RTDBGasinvO 


Business Rules 


EMS 


mii business ruies ano euns assuoaicu wnn ine appiicauon 
volume inventory transaction detail daily (GaslnvO table) 
are within this particular module. 


90.0 


RTDBGCButton 


Business Rules 


EMS 
PCC 


an business ruies and edits associated with the application 
business functions (GCButton table) are within this 
particular module. 


f 91.0 


RTDBGCIndex 


Business Rules 


EMS 
PCC 


Alt business rules and edits associated with the appiicauon 
price indices (GCIndex table) are within this particular 
module. 


92.0 


#TDBGCSecurity 

Tiw 7 

Co 


Business Rules 


EMS 
PCC 


mii ousiness ruies ano eans assoaaiea wiui uie appiicauon 
security authorizations (GCSecurity table) are within this 

nar+ift ifar mnHufa 


33.0 rBTDBGCUser 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
users (GCUser table) ana within this particular module. 


94.0 j iHTDBImages 


Business Rules 


EMS 


mii Dusiness ruies ana eons assoaaieu wnn ine appiicauon 
graphic images (SElmages table) are within this particular 
module. 


95.0 


' RTDBIndexBasketLink 

Q 


Business Rules 


EMS 
PCC 


mii Business ruies bikj euns associaiBo wnn ins appucauon 
index pnee basket link (IndexBasketUnk table) are within 
this particular module. 


96.0 


[RTDBlndexSaskets 

fy 


Business Rules 


EMS 
PCC 


All Ht leinote mta* anH aHrfs SQJtnnataH with tha ar\niif*^tinn 

mii uusiness ruies aim buhs oaauuawu wiui ine appiicauon 

Index price baskets (IndexBaskets table) are within this 
particular module. 


97.0 


M§TDB!ndexRef 

M 


Business Rules 


EMS 
PCC 


mii ousiness ruies ano euns associaieu wiui uie appucauon 
price index master list (IndexRef table) are within this 
narticuiar module 


98.0 


RTDBK 


Business Rules 


EMS 


All business rules and edits associated with the application 
contracts (K table) are within this particular module. 


99.0 


RTDBKNetBadc 


Business Rules 


EMS 


All kiteinoAfli mlAV anW aWtni QQOnrtsfAH uifth tha annfif^tinn 

Mii ousiness ruios anu euns aaauuduni wiui uie application 

contract netbacfc pricing tiers (KNetBack table) are within 
this particular module. 


100.0 


RTDBKNotes 


Business Rules 


EMS 


All hneinaca mlaa anH iiHil* SQCnriatoH vuith tha snniiMttftn 

mii ousiness ruies anu cum assoaaieu wiui ine appucauon 

contract free form note area (KNotes table) are within this 
particular module. 


101.0 


RTDBKProducts 


Business Rules 


EMS 


All hitsinofft* mlofi anH oHrfc& flftfinciatAH with tha annfis^atinn 
mii ousiness ruies anu cutis assuaaieu wun uie appucauon 

contract products area (KProducts table) are within this 
particular module. 


102.0 


RTDBKReportOefauits 


Business Rules 


EMS 


All hticinasa n i ja* nnri Adits asannataH u/ith tha anniiratinn 

mii ousiness iuibs oiiu cuua odsuuaicu wixn uie appucauon 
contract standard report defaults area (KReportOefauits 
table) are within this particular module. 


103.0 


RTDBKReportOvemdes 


Business Rules 


EMS 


All hllcinaOQ rtllAM Snd fidltS afifiAnataH Uifth tha anfiliMtmn 

mii ousiness iu*c9 «iu cuiu ooouuaiou wiui ine appucauon 
contract standard report overrides area (KReportOverrides 
table) are within this particular module. 


104.0 


RTDBKS rvices 


Business Rules 


EMS 


All business ruies and edits associated with the application 
contract services area (KS rvices table) are within this 
particular module. 
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Ref# 

1U3.U 


- Module Name 

RTDBLeg 


I^BuieTvDe 

Business Rules 


Application 
EMS 


Description/Con^^^sT^ w~;r>*v. 

All business rules and edits associated .with the application 
leg (monthly) area (Leg table) are within this particular 
module. ~ 


iuo.u 


RIDaLegO 


Business Rules 


EMS 


All business rules and edits associated with the application 
leg (daily) area (LegO table) are within this particular 
module. 


mT n 
*Uf .u 


KiDbLegOetaii 


Business Rules 


EMS 


All business rules and edits associated with the application 
leg detail (main routing) area (LegOetaii table) are within 
this particular module. 


inn n 


RTDbLegRef 


Business Rules 


EMS 


All business rules and edits associated with the application 
leg master list area (LegRef table) are within this particular 
module. 


ino n 
tua.U 


R i uuLocations 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
locations (SELocations table) are within this particular 
module. 


1 m n 
iiu.u 


K J uBMessages 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
messages (SEMessages table) are within this particular 
module. 


111.0 


RTDBMeter 


Business Rules 


EMS 


All business rules and edits associated with the application 
meters (Meter table) are within this particular module. 


1 1 2.0 


RTDBMeterAllocations 


Business Rules 


EMS 


All business rules and edits associated with the application 
meter ownership allocations (MeterAllocations table) are 
within this particular module. 


113.0 


RTDBMeterNotes 


Business Rules 


EMS 


All business rules and edits associated with the application 
meter comment areas (MeterNotes table) are within this 
particular module- 


114.0 


jRTDBMeterRates 

5 I 

;Sr.f 


Business Rules 


EMS 


Air business rules and edits associated with the application 
meter rate areas (Meterftates table) are within this 
particular module. 


115.0 ; 


^TDBPackage 


Business Rules 


EMS 


All business rules and edits associated with the application 
deals (Package table) are within this particular module. 


4 4 C a 

116.0 


^BTDBPacKageCorrespondence 

3 


Business Rules 


EMS 


' All business rules and edits associated with the application 
deal correspondence (PacfcageCorrespondence table) are 
within this particular module. 


117.0 


J*TI3BPackageCosts 


Business Rules 


EMS 


All business rules and edits associated with the application 
deal 'Other Costs' (PackageCosts table) are within this 
particular module. 


n o.O 


s=RTDBPipeFteid 

TS 

T? - 


Business Rules 


EMS 


All business rules and edits associated with the application 
pipes/fields (PIpeField table) are within this particular 
module. 


119.0 


^RTDbPnceComponents 

jj 

3 


Business Rules 


EMS 


All business rules and edits associated with the application 
price components (PriceComponents table) are within this 
particular module. 


ion n 
120.0 


^RTDBPriceOesc 


Business Rules 


EMS 


All business rules and edits associated with the application 
deal pricing free form text area (PriceOesc table) are within 
this particular module. 


1*54 n 
I it 1.0 


RTDBPrinterOef 


Business Rules 


EMS 


All business rules and edits associated with the application 
printer definitions (PrintenDef table) are within this 
particular module. 


122.0 


R 1 DsProcessingCodes 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
processing codes (SEProcesstngCodes table) are within 
this particular module. 


1«U.0 


RTDBProcessingCodeTypes 


Business Rules 


EMS 


All business rules and edits associated with the application 
processing code types (SEProcessingCodeTypes table) 
are within this particular module. 


124.0 


RTDBProdirrterest 


Business Rules 


EMS 


All business rules and edits associated with the application 
•Availability* royalty interests (Prodinterest table) are within 
this particular module. 


125.0 


RTDBProdPKG 


Business Rules 


EMS 


All business rules and edits associated with the application 
•Availability* deal to ProdVol cross-reference (ProdPKG 
table) are within this particular module. 


120.0 


RTDBPradSum 


Business Rul s 


EMS 


All business rules and edits associated with the application 
•Availability 1 monthly meter summary (ProdSum table) are 
within this particular module. 


127.0 




RiiQinooie Out » 
Duaintsss t\UI S 


fclvto 


All business ruies ana euns associated with the application 
'Availability' monthly ownership volume (ProdVol table) are 
within this particular module. 
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™J DesCT^ption^^ffnent^: ^~^.^.v^ 


128.0 


RTDBrOealCIass 


Business Rules 


EMS 


All business rules and edits associated with the application 
deai classification options (rOeaiCIas&table) are within this 
particular module. ~~ 


129.0 


RTDBrDeatCIassA 


Busin ss Rules 


EMS 


All business rules and edits associated with the application 
deai classification answera (rDeaiCIassA tabl ) are within 
this particular module. 


130.0 


RTDBrOeaiCiassRuies 


Business Rules 


EMS 


All business rules and edits associated with the application 
deai classification wasp rules (rOealClassRules table) are 
within this particular module. 


131.0 


RTDBrGasMontn 


Business Rules 


EMS 


All business rules and edits associated with the application 
production month (rGasMonth table) are within this 
particular module. 


132.0 


RTDBRptsExecutedStats 


Business Rules 


EMS 


All business rules and edits associated with the application 
execution statistics for reporting (SERptsExecutedStats 
table) are within this particular module. 


133.0 


RTDBRptsGroupitems 


Business Rules 


EMS 


All business rules and edits associated with the application 
tab items for reporting (SERptsGroupltems table) are 
within this particular module. 


134.0 


RTDBRptsGroups 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
tabs for reporting (SERptsGroups table) are within this 
particular module. 


135.0 | RTDBRptsltemDetail 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
report files used for reporting (SERptsltemOetail table) are 
within this oarticular mnriuf a 


136.0 j RTDBRptsitemParms 

■ to 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
report file parameters used for reporting 
(SFRptsltemParms table) are within this particular module 


133.0 igRTDBRptsQueue 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
report submission queue used for reporting (SERptsQueue 
table) are within this particular module. 


139.0 pTTDBRptsQueueOistribute 

p 


Business Rules 


EMS 
PCC 


All business ruins and edits associated with the anniieatian 

report queue distribution options used for reporting 
(SERptsQueueOIstribute table) are within this particular 
module. 


140.0 ; 


"HTDSRptsQueueNotify 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the aooiication 
report queue submission notifications used for reporting 
(SERptsQueueNotify table) are within this particular 
module. 


141.0 ; 


zRTDBRptsScheduie 

u 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
report schedules used for reporting (SERptsSchedule 
table) are within this particular module. 


142.0 j 


r^TDBRptsScheduiedReports 

si 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the aooiication 
report schedule actual reports used for reporting 
(SERptsScheduiedReports table) am within this particular 
module. 


143.0 


RTDBRptsScheduleGroups 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
report schedule groups used for reporting 
(SERptsScheduleGroups table) are within this particular 
module. 


144.0 


RTDBRptsScheduieUserGroups 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the aooiicatian 
report schedule users (in groups) used for reporting 
(SERptsScheduleUserGroups table) are within this 
particular module. 


145.0 


RTDBRptsTablesllsed 


Business Rules 


EMS 
PCC 


All business rules and edits associated with the application 
report tables used for reporting (SERptsTablesUsed table) 
are within this particular module. 


146.0 


RTM ssageStackClient 


Business Rules 


EMS 
PCC 


This particular module is responsible for maintaining the 
current list of messages that will be displayed to the user. 
This module will provide for the storing of up to 50 
massaaes fin memory tables) in between enter button or 
mouse dicks. This provides for any/all error messages 
concerning a specific event to be displayed at once versus 
one at a time. 


147.0 


FmAbout 


Form 


EMS 
PCC 


This form provides descriptive information about the 
application (version number, copyright notice, email and 
website suDDOrt links, etc). 
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Module Name* 


Module Type 


Application - 


Description/Comments* ^t^i^^^:-x^-'^-.^^ - 


148.0 


FmActuaiizePurchases 




EMS 


This form provid^^^ method for performing (Step 2 of 4) 
of the actualizati^^eess within EMS. 


149.0 


FmActuaiizeSaies 


Form 


EMS 


This form provides the method for performing (Step 3 of 4) 
of the actualization process within EMSL 


150.0 


FmAddressOetaii 


Form 


EMS 


This form provides for the updating of addresses for 
contacts and companies. The table that gets updated 
behind the scenes is the Address table. 


151.0 


FmAddressList 


Form 


EMS 


This form provides a list of ail available addresses that 
have already been setup for a company. Options on this 
form include an ability to change, add or delete address 
lines from the list 


152.0 


FmSusinessFunctionsOetail 


Form 


EMS 


This form provides for the updating of the business 
functions that are available within the Energy Management 
System AND the Producer Control Center. The table that 
gets updated (behind the scenes) is the 'GCButton' table. 


153.0 


FmflusinessFunctionsList 


Form 


EMS 


This form provides a list of all available business functions 
that are currently within the Energy Management System 
AND the Producer Control Center. Options exist here to 
add. change and delete business functions. Each of these 
business functions represent areas within the application 
for setting system security. 


154.0 


FmCommon 


| Form 


EMS 
PCC 


This form provides for all of the common properties used 
by ali forms. This form can be accessed via the main 
menus by selecting system properties. All of the color 
schemes, graphic images, eta that are used by the system 
are included on this form. At runtime, ali other forms within 
the system will invoke public methods within this form to 
set their respective screen fields. 


155.0 ; 


-FmCompanyDetaii 


Form 


EMS 


This form provides the mechanism for updating detail 
information pertaining to a specific company. This includes 
identification of a primary company address. 


156.0 \ 


IFmCompanyUst 

0 


Form 


EMS 


This form provides a grid list of ali companies that are 
currently stored on EMS. Options on this form include 
extensive lookup and tab options. 


157.0 


IFmContactOetatl 


Form 


EMS 


This form provides the form for updating detail information 
about a contact at a particular company. This includes 
group memberships, functions, eta 


158.0 


^mContaaFuncfconDetatJ 


Form 


EMS 


This form provides the mechanism for associating a 
contact within a company to a specific job function at that 
company (i.e. Accounting, production, eta). 


159.0 i 


^FmContactGroupOetaii 


Form 


EMS 


This form provides the mechanism for creating or updating 
contact groups on the system. 


160.0 j 


IFmContactGroupList 

IMS. 


Form 


EMS 


This form lists all available contact groups on the system. 
Options on this form include the ability to add, change or 
delete a contact group. 


161.0 


^mContactUst 


Form 


EMS 


This for lists all contacts within ali companies. Options on 
this form include an ability to add, change or delete a 
specific contact (with appropriate security). In addition, 
there are extensive data lookup capabilities. 


162.0 


fmContactSecuntyAuth 


Form 


EMS 


This form provides for the entry of external company 
security authorization rules (i.e. Enabling access to 
Producer Control Center, eta). 


163.0 


FmContractOetail 


Form 


EMS 


This form represents the detail form for entering contract 
specific information (netbacfc pricing information, contract 
name, terms, provisions, eta). 


164.0 


FmContractList 


Form 


EMS 


This form provides a grid list of ali existing contracts on the 
system. Options exist on this form to add, change or 
delete a contract This form also includes extensive lookup 
and company letter tab's for searching all contracts. 


165.0 


FmOaiiyPrices 


Form 


PCC 


This form shows the graphs of the revenue detail 
information on the Producer Control Center. 


166.0 


FmOeaiCIassificationUpdates 


Form 


EMS 


This form provides the mechanism for changing any 
calculation rules associated with a given combination of 
deal classification codes. The WASP inclusion indicator is 
stored on this table. 


167.0 


fmOeaiCorrespondenceOetaii 


Form 


EMS 


This form provides an ntry form for attaching electronic 
correspondence to a deal. 
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— ^B: 

| Descriptfon/^Hients.. ^^v.^"^.; ,,. -r>-> 


168.0 


FmDeaiCostsEntryOetaii 


*^orm 


EMS 


This form proviHs for the entry of 'OtherCosts' associated 
with a particular deal 


169.0 


FmOeaiDetail 


Form 


EMS 


This is the main detail form that shows ail of the 
information relative to a deat 


170.0 


FmDealEntryNew 


Form 


EMS 


This form represents a popup box that is displayed when a 
new deal has been requested This box prompts the user 
for the type of deal (purchase or sale) and what product 
and service it is applicable toward. 


171.0 


FmOeaiUst 


Form 


EMS 


This form provides a listing of all 'Purchase' or 'Sales' 
deals within a given month on a grid. Options exist on this 
screen to add. change or delete a deal. 


172.0 


FmOealPrice 

i 
1 


Form 


EMS 
PCC 


This is the form that is used whenever a user wants to 
calculate the prices for a given volume within a given 
month. The only options on this form are to 'Price All' and 
only for those production months and volumes that are 
applicable (based on monthly status). 


173.0 

t 


j FmOeaiPriceEntryDetaii 


Form 


EMS 


This is the main form for entering deal price information 
within the Energy Management System. The primary 
underlying tables that get updated include EngineJAaster 
and Engine MasterPrfce. ~ 


174.0 

! 


FmException 


Form 


EMS 
PCC 


This form is invoked whenever a system exception occurs 
within the system. In order to complete the exception a 
particular user must have a 'Super ID' for the function and 
he/she must provide an exception reason with a 


175.0 f 


^ FmExceptionCategoriesOetaii 


Form 


EMS 


This form provides for a detail update screen to update 


176.0 - 

r 


: fmExceptionCategonesList 


Form 


EMS 


This form provides a listing grid of all reason code 


1 ^70 ^SFrnGraphicViewer 

f< . 


Form 


EMS 


This form provides an ability to view graphic images and/or 
scan in graphic images from a scanner. These images can 
be attached to a deal 


178.0 * 
H 


- fmGroupMemberOetaii 


Form 


EMS 


This form represents the detail form for associating a 


179.0 i 

s 


^FmtmagesOetail 


Form 


EMS 


This form represents the detail form used for posting 
updates to the application graphic images (logo's, eta). 


ma. 


^FmtmagesList 


Form 


EMS 


This form provides a list of afl graphi&images (logos) that 
are currently stored In the system. 


181.0 1 


^FmlndexBasketDetail 

E 


Form 


EMS 


This form provides a detail update screen to update index 


182.0 i 


3Fmlndex8asketLiiikDetaii 


Form 


EMS 


This form provides a eMail update form to allow for the 
updating of Index links to particular baskets. 


183.0 1 

1 


7 FmlndexBaskettist 


Form 


EMS 


This form provides a listing grid of all index baskets on the 


184.0 


FmLegOaiiyOetaii 


Form 


EMS 


This form provides the detai rate information associated 
with a daily leg rate (which overrides the monthly rate 
when setup on SMS). 


185.0 


FmLegOaiiyList 


Form 


EMS 


This form provides a listing of all daily rates that may be 
setup for a particular leg. 


186.0 


FmLegOetail 


Form 


EMS 


This form provides the detail rate information associated 
with the a given leg, on a given production month within 
the system. Both nomination and actual rate information is 
available. 


187.0 


FmLegHistory 


Form 


EMS 


This form provides a historical list of all monthly leg rates 
that have been established for a given leg. 


188.0 


FmLegUst 


Form 


EMS 


This form provides a list of all legs on the system. Options 
exist from this screen to select and change (modify) the 
specific rate information about a leg. 


189.0 


FmLegMonthryView 


Form 


EMS 


This form represents a View* form that provides a read- 
only view of all volumes transported in, out sold and/or on 
balance for a specific meter. 


190.0 


FmLegPurchaseUnkMonthtyView 


Form 


EMS 


This form represents a View 1 form that provides a read- 
only view of ail the purchase deals (volumes) that have 
been attributed to a selected sale. 


191.0 


FmLegPurchaseUnkView 


Form 


EMS 


This form represents a view lorm mat provides a read- 
only view of all purchases linked to a specific sate on a 
given day. 
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^Boauie rvoe- 
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Description^^Bents.v .^w*-.-^*, — — k 


192.0 


FmLegPurcftasePointView 


'^orm 


EMS 


This form repreSnts a View' form that jrovides a read- 
only view of the originating (hop 0) information for any 
gtv n volume that is displayed on the routing screen(s). 


193.0 


FmLegRoute 


Form 


EMS 


This is the main routing screen. Options exist on this 
screen to select pipe/fietds r days, noms or actuals, eta 
With appropriate security a person can transport and/or 
sell volume through this panel. 


194.0 


FmLegSale 


Form 


EMS 


This form is used as a confirm form for posting volume 
balances to a sale. 


195.0 


FmLegSalesView 


Form 


EMS 


This form represents a View 1 form that provides a read* 
only view of all sates that exist on a given pipe/fieid for 
either a single day or an entire month. 


196.0 


FmLegTransport 


Form 


EMS 


This form is used as a confirm form for transporting 
volumes to other meters (pools). Options also exist on this 
form to selectively override transport gathering, pvr or fuel 
rates associated with the transport. 


197.0 


FmLegChange 


Form 


EMS 


This form is used whenever a request is made to change 
the instructions (either volume or rates) on an existing 
transport OR sate route item. 


198.0 


fmLegOelete 


Form 


EMS 


This form is used whenever a routed volume (either 
transported to a pool or posted to a sale) has been 
requested to be deleted. . 


199.0 


FmLocationsOetail 


Form 


EMS 


This form provides a detail update form to allow for the 
updating of location information. These location entries 
are used throughout the system (versus hardcoding 
locations within the software). 


200.0 


yrfnLocationsList 

SUSL 

isssf 


Form 


EMS 


This form provides a list form to allow for showing the 
location information. These location entries are used 
throughout the system (versus hardcoding locations within 
the software). 


201.0 


yfnLogin 


Form 


EMS 
PCC 


This is the common login form used by the apptication(s). 
It provides the mechanism for authenticating users or 
company contacts upon entry into the system. 


202.0 


; fmLoginChange 


Form 


EMS 


This form provides the users of the system with the ability 
to change their login passwords. 


203.0 


a fm Lookup 

□ 

■J i 


Form 


EMS 
PCC 


This form provides a standard lookup dialog that allows for 
queries to be run for nearly all other list forms within the 
system. Most list screens provide a lookup button 
(binoculars) that will Invoke this form. 


204.0 


'JmMessageBox 

21 
□ 


Form 


EMS 
PCC 


This form displays all system messages used within the 
system. This particular form gets utilized by nearly all 
other form on the system. The messages displayed by this 
form include all ERROR, CONFIRMATION^ 
INFORMATIONAL and IN-PROCESS oriented messages. 


205.0 


fmMeterAllocationsOetaii 


Form 


EMS 


This form provides for an entry screen for entering 
allocation companies and accounting cross reference deck 
codes for a given meter/well and effective date. 


206.0 


FmMeterOetail 


Form 


EMS 


This form provides for a detail update form on meter/welt 
information within the system. 


207.0 


ftnMetertJst 


Form 


EMS 


This form provides for a list form of all meters/wells within 
the system. 


208.0 

_ 


fmMeterftatesDetail 


Form 


EMS 


This form provides for an entry screen for entering rates 
i pressure base, Btu factor, pipe/field pressure base, etc.) 
for a given meter/well on a specific effective date. 


209.0 


FmMeterRevenue 


Form 


PCC 


This form provides a meter/well form that shows graphic 
representation of calculated volumes and prices. 


: 210.0 


FmMeterTotalsView 


Form 


EMS 


This form provides a View which is a read-only view of all 
the meter totals (actualized versus not actualized) for an 
entire month). A specific deal OR all deals within a month 
can be viewed through this form. 


( 211.0 

\ 

s 


FmMonthtyStatusOetail 


Form x ^ - 


EMS 


This form provides a screen for updating the detail 
production month status information. This is where users 
will go to change the status for each production month 
(dependino on security level of the user*. 
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"1 Description/Commentsv • v 


212.0 


FmMonthtyStatusList 


Form 


""EMS 


This form provides a grid list of ail monthly status 
information (by status). Options exist here to invok the 
detail update screen to update monthly status information 
(with appropriate security). ": 


213.0 


fmN tBackTierOetaii 


Form 


EMS 


This form provides the detail form for updating the netback 
pricing tiers for a given contract These tiers are 
referenced (for all WASP classified deals) during the 
pricing function. 


214.0 


FmOGISFeeds 


Form 


EMS 


This form provides an entry form for specifying the 
parameters used to create the 06IS journal entry and 
revenue receivable accounting feeds. The actual text files 
are created from this form. 


215.0 


FmPickACompany 


Form 


EMS 
PCC 


This form provides a common mechanism for displaying a 
list of companies to a user and having one of them 
selected and carried back to the requesting form. 


216.0 


FmPickAContact 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of contacts to a user and having one of them selected 
and carried back to the requesting form. 


217.0 j FmPtckAContract 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of contracts to a user and having one of them selected 
and carried back to the requesting form. 


218.0 | FmPickADeal 

! ! 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of deals to a user and having one of them selected and 
carried back to the requesting form. 


219.0 j 


J^mPtckAOealMeter 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of deal meters to a user and having one of them 
selected and carried back to the requesting form. 


220.0 


ifmPickALeg 

y 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of leg (monthly routes) to a user and having one of 
them selected and carried back to the requesting form. 


221.0 


tfrnPickALegRef 

-5. 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of LegRef (master routes) to a user and having one of 
them selected and carried back to the requesting form. 


222.0 ; 


^FmPtckALegSate 

3 


Form 


EMS 


This form provides^ common mechanism for displaying a 
list of sales points available for routing to a user and 
having one of them selected and carried back to the 
requesting form. 


223.0 


rFmPickAMeter 

y 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of meters/wells to a user and having one of them 
selected and carried back to the requesting form. 


224.C ; 


[fFmPickAPipeiine 

3 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of pipe/fields to a user and having one of them selected 
and carried back to the requesting form. 


225.0 


fmPickAReport 


Form 


EMS 


This form provides a common mechanism for displaying a 
list of reports to a user and having one of them selected 
and carried back to the requesting form. 


226.0 


FmPipeDetart 


Form 


EMS 


This form provides the detail update form for updating 
pipe/field information on the system. 


227.0 


fmPipeiineActuais 


Form 


EMS 


This is the main form used for enter actual volumes for 
meters/wells on the system. The form includes a 
calculator function for propagating the volumes across all 
days for the highlighted meter/well. 


228.0 


fmPipeUst 


Form 


EMS 


This form provides the list form to show all pipe/fields 
currently defined within the system. Options exist on this 
form to add. update or delete a pipe/field. 


229.0 


FmPriceComponentsOetaii 


Form- 


EMS 


This form provides the screen for updating the detail 'price 

ttnwA fonAfi emit in ah thn u/ctam TIhuh 

tags tnat nave oeen setup on mo system, i nese pnce 
tags allow us to identify the various portions of a sale or 
purchase orice. 


230.0 


FmPriceComponentsList 


Form 


EMS 


This form provides a grid list of all price components (tags) 
that have been setup on the system. 
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231.0 


fmPriceindexUpdates 


Form 


EMS 


This form provides a list of ail prices forttie daily Index 
Prices. When entering this form the default date is set to 
the current date. When prices are being entered on 
'Mondays' there is a 'copy to previous weekend' button 
which wiil allow for all prices to be propagated back to the 
previous weekend. Monthly index prices are entered on 
day 1 only for a given month. 


232.0 


FmPriceindicesDetail 


Form 


EMS 


This form provides a screen for updating the price index 
information on the database (IndexRef table). This 
includes display order, name, etc. 


233.0 


fmPricelndicesList 


Form 


EMS 


This form provides an 'updateabie' grid list that shows all 
price indices on the system. Options exist here to tnvok 
the add/update function (frnPriceJndicesOetail). 


234.0 


fmPricesBylndexList 


Form 


EMS 
PCC 


This form provides a graphic and tabular view of index 


235.0 


FmPrinterOetail 


Form 


EMS 


This form provides a detail entry form for updating the 
printer information stored on the system. 


236.0 


fmPrintertist 


Form 


EMS 


This form provides a list form that shows all printers 
currently defined on the system. 


237.0 


FmProcessingCodesOetail 


Form 


EMS 


This form provides the detail form for updating a given set 
of reference (processing codes). 


238.0 


FmProcessingCodesList 


Form 


EMS 


This form provides the list form for showing all of the 
processing codes. Options exist on this form to add. 


239.0 


ffjmProcessingCodesPick 


Form 


EMS 


This form provides an ability to 'pick* a particular reference 
code and send ft back to the form that invoked the screen. 


240.0 


rFmProcesstngCodeTypesDetail 

i i : 


Form 


EMS 


. This form provides the detail form for updating a given set 


241.0 


yffnProcessingCodeTypesList 

i Ti 

JB3S. 


Form 


EMS 


This form provides the list form for showing all of the 
processing code types. Options exist on this form to add. 


24Z0 


rfmProdVolCofirms 

r- 


Form 


EMS 


This form provides the mechanism for recognizing volumes 
that were returned fay producers. In addition, options exist 
on this form to send out producer confirmations. 


243.0 


g FmProdVolHist 


Form 


EMS 


This form provides a history list of royalty and makeup 
percentage interests, by owner, for a given meter/well. 


244.0 


tfmProdVolUst 

01 

C2 I 

' i : 


Form 


EMS 


This form provides the mechanism for entering initial 
volumes (expected avaiiabiJ&y) from producers. Option 
exist on this form to send out producer availability estimate 


245.0 


^ffmReportOefaultsDetail 


Form 


EMS 


This form provides a detail screen for setting up the default 
reports that wiil be used by entity, product and service on 
the system. These reports include invoices, vouchers. 


246.0 


FmReportOefauitsList 


Form 


EMS 


This form provides a list screen for showing all of the 
default reports that are setup by entity, product and service 
on the system. These reports indude invoices, vouchers. 


247.0 


FmReportOverridesOetail 


Form 


EMS 


This form provides a eMail screen for setting up the 
override reports that will be used by entity, product and 
service on the system ASSOCIATE TO A SPECIFIC 
CONTRACT. These reports include invoices, vouchers, 


! 248.0 


FmReportsUst 


Form 


EMS 
PCC 


This is the primary form used for displaying a reporting 
folder. Within this folder are all of the reporting labs' that 
are available. Within each tab are all of the specific reports 
that can be run. A submission, and view button are 
available here. 


249.0 


FrnReportsParaemeters 


Form ^ * - 


EMS 
PCC 


This is the form that is used when entering the various 
parameters when a report is submitted. Defaults are 
automatically supplied and the parameters are listed In a 
grid list format 


: 250.0 


fmReportsView 


Form 


EMS 
PCC 


This is the main view form for viewing ail of the submitted 
reports. Options exist to view the reports specifically 
submitted by a user OR to view the reports that were 
submitted bv the scheduler. 
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251.0 


fmSecuntyAuttiDetaii 


Form 


EMS 


This form represents the form for establishing and updating 
security authorizations between users and business 

fiinrHnrtnc u/rihfn the PnAfnv Manaaerneftt Svofom OnfinnQ 
lUilCDurid will Mil u iv ciicny/ ivioi loy&inojii w yoiaii. w^Uwiia 

exist here to aiiow for users to have NO ACCESS, READ 
ONLY, READ/UPDATE, READ/UPDATE/DELETE or 
SUPER access to a particular area of application. 


252 0 


fmSecuntyAutnList 


(Ullll 


EMS 


This form provides a listing of ail security authorizations 

that am «s«t far each lisat on the Pnemv Manaaement 
mat aio oot iwi com i usci uii uto * w y jf iviaiiai^oiiisiit 

System. Options exist on this form to add, update and 
delete cnortfip ^onirrhf authorizations for anv ah/en user of 

UBiDUS JiyP%**MW vBWWHl HUUI Wl lUHwl 4 Wl Of IT Miff 1 UiJWI wt 

the system. 


253.0 


FmsRptslnvoice 


Form 


EMS 


This is the Drimarv form for submitnna standard 
invoice reports. 


254.0 


FmsRptsRemrttance 


Form 


EMS 


This is the onmarv form used for suhmittinn standard 

i iiim *4 uiw m • ioi y i wait ■ iwww ft w# o w*M ■ mui IW tTITII IWfll W 


255.0 


fmsRptsVoucher 


Form 


EMS 


This is the primary form used for submitting standard 
voucher reports. 


256.0 


Fm Transaction Detail 


Form 


EMS 


i ma TUJiii provides lur ins enuy or wmer wosr transactions 
within EMS. Once these transactions are setup in the 

svstem then thev can he attached to daaL« and 

9 * m LCI II, HIGH UISJ Will WO OUflwiOU IW UPflKI OilU 

calculations will be done against them. 


257.0 


FmTransactionyst 


Form 


EMS 


This form provides a list of all the Other Cost transactions 
that have been setuo on the system. 


i 


fmtlserProfilesOetaii 


rorm 


EMS 


This form represents the creation and update form for all 
usens on me energy Management oysiem. rnts form 
provides an administrator with the ability to change name, 
password, title, default printer, etc for all users on the 


259.0] 

n 

T 


ffmUs rProfilesUst 

1 


Form 


EMS 


This form provides a listing of all users that are capable of 
using the Energy Management System. Options exist on 
this form to add, update or delete a specific user. 


260.0 | 

c 

a 
c 

r " 


i frnGasControiMainMenu 


Form 


EMS 


This form represents the main menu for the Energy 
Management System. AH menu options, speed buttons, 
eic are storeo on mis tooti. i nis parucuiar rami is aiso 
responsible for invoking the methods to establish a 
connection and set the form screen attributes (based on 
user preferences). 


261.0 B 

f = 

J? 

6 ; 

f ■ 
3 - 


.frmProducerControiCenterMain 
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Form 


PCC 


This form represents the main menu for the Producer 
Control Center. AU menu options, speed buttons, etc are 
stored on this form. This particular form is also responsible 
for invoking the methods to establish a connection and set 
the form screen attributes (based on user preferences). 
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APPLICATION (CLIEN-SIDE) SOFTWARE 
The table that follows contains the high-level 
documentation related to the systems and methods provided by 
the present invention and, in particular, those sub-functions and 
applications that run client-side in the context of the present 
invention. In the table that follows, the terms EMS and PCC are 
used to differentiate (as described above), between a full use 
application system and a limited use/user/function application 
system that are provided by the present invention. The actual 
source code for such application software is contained among the 
files found on the attached compact disc. 

PRICING AND PRICING TECHNIQUES 
So far in the aforementioned detailed discussion the 
present invention, it has been assumed that the particular pricing 
techniques may be employed to price one or more fuel deals 
automatically. The present invention certainly permits fuel deals 
to be priced based on a variety of factors germane to the energy 
field. Additionally, the systems and methods provided by the 
present invention permit fuel deals to be priced automatically, in 
batch or otherwise, based on pricing techniques which are 
modularized and which are carried out automatically based on 
prior or other collections of fuel deals and other fuel deal data. 
Accordingly, teams of sales personnel can have deals priced 
based on company specifications to meet margin requirements, 
etc. 

One such technique implemented as a modularized 
process capable of pricing one or more fuel deals in accordance 
with the present invention is referred to as the WASP technique 
which stands for the Weighted Average Selling Price technique. 
WASP permits one or more fuel deals (usually a collection) to be 
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priced to meet organization pricing targets (and margin 
requirements) based on computed average sales prices across 
collections of fuel deals. The WASP technique and its supporting 
computer software are contained herein for purposes of example 
to illustrate the novelty of having a system that can incorporate a 
substitutable pricing technique (algorithm) into a business process 
like or similar to the one depicted in and discussed in regard to 
FIG. 1. 

The WASP Calculation 

This particular section contains information on the 
calculation that occurs to price deals. In the context of the 
present invention, it is envisioned that there are three situations 
that can trigger a pricing calculation: 

1. The price calculation can be submitted at any time 
by individuals with appropriate security using the 
System online pricing screen (see FIGS. 4A-4Q). 
Only those production months in a 'Sales' 
(nomination recalculated) or Invoiced' (actual 
recalculated) status can be submitted through this 
screen; 

2. When the status for a production month goes from 
'Sales' to 'Invoiced 1 a final nomination is performed. 
In addition, when the status of a production month 
goes from 'Invoiced' to 'Accounting' a final actuals 
calculation is performed. These production month 
status 'promotions' occur through the EMS online 
screens (by individuals with an appropriate level of 
security); and 

3. Each evening, for example, all production months 
that are in either the 'Sales' or 'Invoice' status will 
have a calculation cycle run for them. This 



-25- 



calculation begins at approximately 8:00 CST, for 
example. This ensures that all variables (price index 
entries, volumes, routing instructions, etc.) that could 
influence the price of a given set of deals are 
recalculated and presented as current, the first thing 
in the morning. 

The entire calculation process is comprised entirely of MS 
SQL-Server Transact-SQL stored procedures. The 'flow' of the 
calculation can be described with reference to the following six (6) 
stages: 

Stage 1 . Sales Deal Calculations 

Calculate all sales deals first (all pools and deal 
classifications). This is done because knowing the sales prices 
(by pool) is required for the following purchase deal calculations. 

Stage 2 WASP Deal Preparation 

This particular stage simply prepares the 
WASPResolvedRouting table with initial sales pool total dollars 
and volumes. This is the primary table that is used when 
repeatedly (such as via iteration) tracing all volumes from the 
sales point back to originating purchase points. 

Stage 3 Purchase Deal 'None' Pool (3 rd Party) 
Calculations 

All third party purchase deals (belonging to the 'None' 
(pool) are calculated first. The reason for this is because of the 
potential that some of these deals having Financial Overrides that 
are to be distributed to either a 'Common' WASP pool OR to a 
specific deal. By doing these calculations first, the profit gain or 
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loss (for the financial overrides) can be determined and posted to 
the appropriate place in the WASPResolvedRouting table. 

Stage 4 Purchase Deal 'Dedicated' Pool 
(Sanctioned Sales) Calculations 

All sanctioned sales purchase deals are now calculated. 
The price for these purchases is driven based on a weighted 
average basis of the sales meters. Sanctioned sale purchase 
exist in their own pool ('Dedicated') so that no other purchases 
volumes (and sales of those volumes) will impact the price 
calculated. Netback percentages are applied. 

Stage 5 Purchase Deal 'Common' Pool (Equity) 
Calculations 

All equity deals are then calculated. The price for these 
purchases is driven based on a weighted average basis of the 
sales meters. All purchases that are classified as 'equity' will 
share in pricing and costing (weighted). The pricing is based on 
the 'common' body. Any given purchase deal classified as equity 
could potentially impact the price that other purchase deals (in the 
'common' pool) calculates. Netback percentages are applied. 

Stage 6 Transportation Costs 

This stage of the calculation aggregates all of the transport 
volumes throughout the month to special transport deals and 
volume inventory items. 

Each of the aforementioned stages of the calculation are 
invoked from a stored procedure called 
usp_PSPriceAutoMonth. FIGS. 5A and 5B illustrate the process 
flows corresponding to these stages' and the flow of the stored 
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procedures (discussed above) invoked during the calculation. 
The ordering of these procedures can be tied back to the stages 
just described above. Actual WASP calculation routines are listed 
below to aid the reader to completely understand the nature using 
a predetermined pricing technique in accordance with the present 
invention. 

Weighted Average Sales Price Calculation Routines 

The following software routines implement a weighted 
average sales pricing technique that may be incorporated within a 
computing environment such as within a server-side processing 
system to facilitate fuel deal pricing in accordance with a preferred 
embodiment of the present invention. Accordingly, in the context 
of the instant invention, the following routines provide a 
predetermined pricing technique for pricing fuel deals based on 
past, present, or future deals, or combinations thereof. The 
following routines are found among the files contained on the 
attached compact disc, and also have been commented to assist 
those of ordinary skill in the art understand the details related to 
actual implementation. 



r Microsoft SQL Server - Scripting 
r Server IS101 
r Database: EMS 

r Creation Date 02/13/2001 4:08:41 PM 



CREATE PROCEDURE uspJGetlndex( 



AS 

r 



©GasMonthX DATETIME, 
@GasDayX DATETIME, 
@IXVARCHAR{15), 

@lndexValuexx DECIMAL(19,6) OUTPUT 
) 



Name: uspJGetlndex 

Description: Get the most recent index value for a specified price index. 
Inputs: 

GasMonthx - Gas month for lookup 
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GasDayx - Preferable gas day used for lookup 
Ix - Index id 

IndexValuexx - return index value 
History: 

1 1/07/2000 JAMIE Modifications to convert from Watcom-SQL to 
Transact-SQL. 



•/ 

BEGIN 

SELECT ©IndexValuexx = 0 

r 



* First get the maximum gas day that 

* has been entered for this index 
*id in this particular month. 

*/ 

SELECT @GasDayX=(SELECT Max(GasDay) FROM GCIndex WHERE GasMonth=@GasMonthX AND 
GasDay<=@GasDayX AND lndexlD=@IX AND lndexVal<>0) 

/ * _ UJUJL111JLJLJL1JLl tl lll utl UA1 

* Now get the index value for that 
[ day. 

V 

SELECT ©IndexValuexx = IndexVal FROM GCIndex WHERE GasMonth=@GasMonthX AND GasDay=@GasDayX 

AND lndexlD=@IX 

END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
GO 

CREATE PROCEDURE usp_fGetlndexBasket( 

©GasMonthX DATETIME, 
©GasDayX DATETIME, 
©IndexBasketlDX VARCHAR(15), 
©IndexValuexx DECIMAL(19,6) OUTPUT 
) 

AS 

BEGIN 

r 



Name: fGetindexBasket 

Description: This function will get the index basket amount for the specified 
month and date. This function will return a simple average of all the non zero 
components within the index for the month and day. 

Inputs: GasMonthX (current gas month), GasDayX (day within month) and 
IndexBasketlDX (IndexBasket unique identifier). 

Outputs: Simple averaged price for the index basket. 

History 

xx/xx/xx (?) CHIP Original Creation. 

04/29/99 JAMIE Modified for WASP 2.10 Release. Structure changes 
made to the Engine and Engine_Master tables. In 
addition, ail documentation added. This particular 
portion of the system required extensive changes 
due to the need to store a nom and actual number 
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and because all price components are now stored 
off the Engine.MasterPrice table (STID's 8 and 9). 



1 1/08/2000 JAMIE Converted to transact-sql. 



7 

r 



* Declare all exceptions, cursors 

* and local variables that will be 

* utilized by this procedure. 



•/ 

DECLARE IndexBaskelink.Cursor CURSOR LOCAL FORWARD.ONLY STATIC FOR 

SELECT indexlD FROM IndexBasketLink WHERE lndexBasketlD=@lndexBasketlDX 

DECLARE ©yTotalPrice DECIMAL(19,6) 
DECLARE @yTotallndices INTEGER 
DECLARE ©yTotalPricelnterim DECIMAL(19,6) 
DECLARE ©ylndexlD VARCHAR(12) 

I* ^^^^ 

* Initialize ail fields here... 



V 

SELECT @yTotalPrice=0 
SELECT @yTotallndices=0 
SELECT @tndexValuexx=0 

r 



* Loop through all of the indices within 

* the index basket. Obtain the price 

* information. 



7 

OPEN IndexBaskelink.Cursor 

FETCH NEXT FROM IndexBaskelink.Cursor INTO ©ylndexlD 
WHILE @@FETCH_STATUS = 0 
BEGIN 

EXECUTE usp.fGetlndex @GasMonthX,@GasDayX,@ylndexlD,@yTotalPricelnterim OUTPUT 
IF @yTotalPricelnterim<>0 
BEGIN 

SELECT @yTotalPrice=@yTotalPrice+@yTotalPricelnterim 

SELECT @yTotallndices=@yTotallndices+1 

END 

FETCH NEXT FROM lndexBaskelink_Cursor INTO ©ylndexlD 

END 

CLOSE IndexBaskelink.Cursor 
DEALLOCATE IndexBaskelink.Cursor 

r 



* Take the simple average of the totals 

* here... 



V 

IF (@yTotalPrice<>0) AND (@yTotallndices<>0) 
BEGIN 

SELECT @lndexValuexx=(@yTotalPrice/@yTotallndices) 

END 

END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 
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SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 



5 CREATE PROCEDURE uspJGetNetbackPercentage( 

@PIDx INTEGER, 
©GasMonthx DATETIME, 
©TypeNetbackx VARCHAR(12), 
©WhichPricex INTEGER, 

1 0 @yNetbackPercentage DECIMAL{19,8) OUTPUT 

) 

AS 

BEGIN 
/* 



15 



55 



Name: uspJGetNetbackPercentage 



Description: This function will return the netback percentage that should be applied 
to a particular deal, for a particular month. This netback percentage is based on the 
20 percentage setup at the contract level for the deal in question. These percentages 

at the contract level (KNetback table) are tiered. There are two methods of deriving 
the percentage. 

Method 0 (All or nothing) - With this method the average daily volume for the month 
25 will be used to find the appropriate tier (also based on effective date). The netback 

percentage to use will be the FIRST tier setup on the contract whose average daily volume 
does not exceed the total for the gas month on this package. All gas volume for the 
month will use this same percentage (all or nothing). 

^ 30 Method 1 (Accumulating) - With this method the resulting end percentage that will be 

03 used is based on volumes within each tier (they are weighted based on their respective 

, p E volumes. The netback percentage that is calculated is based on the wieghted average of 

~fZ all percentages, across all tiers using volumes that were applied. 

u i 

Q 35 This particular function will work with Nomination (WhichPricex = 0) and Actual 

y. (WhichPricex = 1) volumes. In addition, this procedure can return both 'GAS' and/or 

f . 'OIL' (and or any other) netback (via the TypeNetbackx parameter). 

IX''" 

S 

f=t 40 was sent as an input parameter. The WASP indicator is based on the combination of 
J? deal classifications that have been established for this deal. The default indicator 

U 1 is 'N' (ie if classification information can't be found/etc). All combinations of 

fy deal classifications should be setup. 

5 45 Inputs: 

Q 

jLi PIDx (package ID) 

GasMonthx (Gas Month) 
TypeNetbackx (type of netback percentage) 
50 WhichPricex (0=Nominations, 1=Actuals) 

Outputs: 

A single percentage to be applied to the price, representing the netback. 
History: 

05/13/99 JAMIE Original Creation. 

60 07/22/99 JAMIE Modified to check for a floor amount 

and return that amount if it is greater 
than the calculated amount. 

09/02/1999 JAMIE Modified to sum volumes either across DEAL, CONTRACT 
65 or COMPANY when determining the correct tier. 

08/21/2000 JAMIE Modifications to only sum volumes within the same 
product (across entities and services). 

70 1 1/08/2000 JAMIE Converted to Transact-SQL 



-31- 



r 



* Declare all exceptions, cursors 

* and local variables that will be 

* utilized by this procedure. 

10 */ 

DECLARE ©zRound INTEGER 
DECLARE ©zEntityCID VARCHAR(12) 
DECLARE ©zKProductID INTEGER 
DECLARE ©zKServicelD INTEGER 

15 

DECLARE ©tmpEndDate DATETIME 
DECLARE ©tmpMaxEffective DATETIME 
DECLARE ©tmpDayslnPeriod INTEGER 
DECLARE ©tmpVolumeTotal DECIMAL(19,2) 
20 DECLARE ©tmpAccumulatingTotal DECIMAL(19,2) 

DECLARE ©tmpPrevBand DECIMAL(19,2) 
DECLARE ©tmpCurrBand DECIMAL(19,2) 
DECLARE ©tmpBandTotal DECIMAL(19,2) 
DECLARE ©tmpBandWeightPerc DECIMAL(19,8) 
25 DECLARE ©tmpAccumulatingPrice DECIMAL(19,8) 

DECLARE ©yNetbackMethod INTEGER 
DECLARE ©yNetbackTierLevel VARCHAR(10) 
DECLARE ©yAveragePerDay DECIMAL(19,2) 
^ 30 DECLARE @yDailyTotalDECIMAL(19,2) 

© DECLARE ©yeffective DATETIME 

yg DECLARE ©ymaxvollevel DECIMAL(19,2) 

DECLARE ©ynetprice DECIMAL(19,8) 
Ui DECLARE ©ynetpricefloor DECIMAL(19,8) 

p 35 DECLARE ©yKID INTEGER 

:^ DECLARE @yCID VARCHAR(12) 

i /* 

H 5 »" * » 

s * Get netback method information off the 

f=* 40 * contract The default will be all or 

* nothing (most common). However, this 

* should always be found on the contract. 



* 0 = Al! or Nothing 
45 * 1 = Accumulating 



y= * Also, this area of the code sets the 

* default for the netback to zero. 
* 

50 * In addition, go and get the default 

* netback tier level off the contract 

* in order to know at what level to 

* summarize the volumes when 

* performing the calculation. The 
55 * default is 'DEAL' if it can't be found 

* or if one is not specified. 

V 

SELECT @yNetbackPercentage=0 
60 SELECT @yNetbackMethod=ISNULL((SELECT tier FROM K WHERE KID=(SELECT KID FROM package WHERE 

PKG=@PIDx)),0) 

SELECT @yNetbackTierLevel=ISNULL((SELECT NetbackTierLevel FROM K WHERE KID=(SELECT KID FROM 
package WHERE PKG=@PIDx)):COMPANY') 

SELECT @yKID=ISNULL((SELECT KID FROM package WHERE PKG=@PIDx),0) 
65 SELECT @yCID=ISNULL((SELECT CID FROM package WHERE PKG=@PIDx), H ) 

r 

* Get the entity, product and service 

* information off the deal table. There 
70 * has to be a value on the deal (package) 
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* table for each of these... 
V 

SELECT @zEntityCID=ISNULL((SELECT K.EntityCID FROM Package.K WHERE PKG=@PIDx and 
5 K.KID=Package,KID),") 

SELECT @zKProductlD=ISNULL((SELECT KProductID FROM Package WHERE PKG=@PIDx),0) 
SELECT @zKServicelD=ISNULL((S ELECT KServicelD FROM Package WHERE PKG=@PIDx),0) 

r ^^^^^ 

1 0 * Now calculate the average volume of 

* gas per day that this particular 

* package has on the system. Remember to 

* use the WhichPrice parameter to determine 

* which volume to get 
1 5 * 0=(Nominated Volume) 

* 1=(pipeline actual volume) 

7 

EXECUTE usp JLastDay @GasMonthx,@tmpEndDate OUTPUT 
20 SELECT @lmpDayslnPeriod=(DATEDIFF(day,@GasMonthx 1 (BlmpEndDate) + 1 ) 

IF @WhichPricex=0 
BEGIN 

IF @yNetbackTierLevel='DEAL' 
BEGIN 

25 SELECT @tmpVolumeTotal=ISNULL((SELECT SUM(Nom) FROM 

Gaslnv WHERE PKG=@PIDx),0) 

END 

IF ©yNetbackTierLeveN'CONTRACT 
BEGIN 

30 SELECT @tmpVolumeTotal=ISNULL((SELECT SUM(Gaslnv.Nom) 

SB FROM Gaslnv.Package 

s p WHERE Gaslnv.GasMonth=@GasMonthx AND 

%! Gaslnv.DBCR=0 AND Gaslnv.PriceType=1 AND Gaslnv.KID=@yKID 

O AND Package.PKG=Gaslnv.PKG AND 

M 35 Package.KProductlD=@zKProductlD),0) 

L END 

r- 

* IF @yNetbackTierLevel='COMPANY' 

□ BEGIN 

|j: 40 SELECT @tmpVolumeTotal=ISNULL((SELECT SUM(Gaslnv.Nom) 

~ ' FROM Gaslnv.Package 

PJ WHERE Gaslnv.GasMonth=@GasMonthx AND 

03 Gaslnv.DBCR=0 AND Gaslnv. PriceType=1 AND Gaslnv.CID=@yCID 

P t AND Package.PKG=Gaslnv.PKG AND 

^ 45 Package.KProductlD=@zKProductlD),0) 

H 1 END 

END 

IF @WhichPricex=1 
BEGIN 

50 IF ©yNetbackTierLeveN'DEAL' 

BEGIN 

SELECT @tmpVolumeTotal=ISNULL((SELECT SUM(PipelineActuals) 

FROM Gaslnv WHERE PKG=@PIDx),0) 

END 

55 IF @yNetbackTierLevel='CONTRACr 

BEGIN 

SELECT @tmpVolumeTotal=ISNULL((SELECT 
SUM(Gaslnv.PipelineActuals) FROM Gaslnv.Package 

WHERE Gaslnv.GasMonth=@GasMonthx AND 
60 Gaslnv.DBCR=0 AND Gaslnv. PriceType=1 AND Gaslnv.KID=@yKID 

AND Package.PKG=Gaslnv.PKG AND 

Package.KProductlD=@zKProductlD),0) 

END 

IF @yNetbackTiert_evel='COMPANY' 
65 BEGIN 

SELECT @tmpVolumeTotal=ISNULL((SELECT 
SUM(Gaslnv.PipelineActuals) FROM Gaslnv.Package 

WHERE Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.DBCR=0 AND Gaslnv.PriceType=1 AND Gaslnv.CID=@yCID 
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AND Package.PKG=Gaslnv.PKG AND 

Package.KProductlD=@zKProductlD) ( 0) 

END 

END 

IF (@tmpVolumeTotal=0) OR (@tmpDayslnPeriod<1) 
BEGIN 

SELECT @yAveragePerDay=0 

END 

ELSE 

BEGIN 

EXECUTE usp_GetProductVolumeRound @PIDx,@zRound OUTPUT 

SELECT @yAveragePerDay=ROUND(@tmp\/olumeTotaiy@tmpDayslnPeriod t @zRound) 

END 

/* 



* Determine which effective date of rules 

* should be used. This will be the max 

* effective date where the effective date 

* is either in or prior to the end of the 

* current gas month. Only the set of rules 

* associated with the most recent effective 

* date will be used. If a date cannot be 

* found then this function will return 

* a zero percentage (ie. one isn't on 

* the system that precedes the gas 

* month). 



7 

SELECT @tmpMaxEffective=(SELECT MAX(effective) FROM knetback WHERE KID=(SELECT KID FROM package 
WHERE PKG=@PIDx) 

AND (effective<=@tmpEndDate) AND NetBackType=@TypeNetbackx) 

IF ©tmpMaxEffective IS NULL 
BEGIN 

SELECT @tmpMaxEffective= , 01-01-1900 , 

END 

r 



* If method 0 (all or nothing) then go 

* and get the single tier percentage. 

* The tier record will loop through and 

* take the first tier record where the 

* volume is greater than or equal then 

* the average volume per day. 

* This is the all or nothing netback 
•pricing tier logic. 



7 

IF @yNetbackMethod=0 
BEGIN 

SELECT @yDailyTotal=@yAveragePerDay 

END 

ELSE 

BEGIN 

SELECT @yDailyTotal=0 

END 

r 



* Initialize any fields that may be 

* needed during the loop process. 



7 

SELECT @tmpAccumulatingTotal=@yAveragePerDay 
SELECT @tmpPrevBand=0 
SELECT @tmpAccumulatingPrice=0 

r 



* Now loop through all of the netback 

* price records attached to the contract 



7 
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DECLARE NetbackCursor CURSOR LOCAL FORWARD.ONLY STATIC FOR 
SELECT 

effective, 

5 maxvollevel, 

netprice 
FROM 

kNetBack 

WHERE 

1 0 (KID=(SELECT KID FROM Package WHERE PKG=@PIDx)) AND 

(effective=@tmpMaxEffective) AND 
(maxvollevel>=@yDaiiyTotal) AND 
(NetbackType=@TypeNetbackx) 

ORDER BY 

1 5 maxvollevel asc 

OPEN NetbackCursor 

FETCH NEXT FROM NetbackCursor INTO @yEffective,@ymaxvoflevel t @ynetprice 
WHILE @@FETCH_STATUS = 0 
BEGIN 

20 IF @yNetbackMethod=0 

BEGIN 

IF @yNetbackPercentage=0 
BEGIN 

SELECT 

25 @yNetbackPercentage=ROUND(@ynetprice,4) 

END 

— EN ° 

2? 30 * If method 1 (accumulating) then go 

UJ * through and weight each tier to derive 

* a percentage. We know the total volume 
I n * for the month each tier will provide us 

* with the weighting information we need. 

L, IF @yNetbackMethod=1 

- BEGIN 

5 IF @tmpAccumulatingTotal>0 

O 40 BEGIN 

SELECT @tmpCurrBand=(@ymaxvollevel- 



5 7=r 

90 

pi 



@tmpPrevBand) 

IF @tmpCurrBand<=@tmpAccumulatingTotal 
BEGIN 

45 SELECT 
@tmpBandTotal=@tmpCurrBand 

SELECT 

@tmpAccumulatingTotal=(@tmpAccumulatingTotal-@tmpCurrBand) 

END 

50 ELSE 

BEGIN 

SELECT 

@tmpBandTotal=@tmpAccumulatingTotal 

SELECT 

55 @tmpAccumulatingTotal=0 

END 

SELECT @tmpBandWeightPerc=@tmpBandTotal 
SELECT 

@tmpBandWeightPerc=@tmpBandWeightPerc/@yAveragePerDay 
60 SELECT 
@tmpAccumulatingPrice=@tm^ 

END 

SELECT @tmpPrevBand=@ymaxvollevel 

END 

65 FETCH NEXT FROM NetbackCursor INTO @yEffective,@ymaxvollevel,@ynetprice 

END 

CLOSE NetbackCursor 
DEALLOCATE NetbackCursor 

r 

70 
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* Get the last accumulating price here 

* and use this price... 



7 

IF @yNetbackMethod=1 
BEGIN 

SELECT @yNetbackPercentage=@tmpAccumulatingPrice 

END 

r 



* At this point a calculated netback 

* percentage has been derived. Now 

* check to see if the calculated netback 

* percentage is less than the 'floor* 

* amount setup on the contract If so, 

* then use the floor amount 



7 

SELECT @ynetpricefloor=ISNULL((SELECT NetPriceFloor FROM K WHERE KID=(SELECT KID FROM Package 
WHERE PKG=@PIDx)),0) 
IF @ynetpricefloor<>0 
BEGIN 

IF @ynetpricefloor>@yNetbackPercentage 
BEGIN 

SELECT @yNetbackPercentage=@ynetpricefloor 

END 

END 

END 



GO 

SET QUOTED IDENTIFIER OFF SETANSLNULLS ON 
GO 

SET QUOTED IDENTIFIER ON SETANSLNULLS ON 
GO 

CREATE PROCEDURE usp_fGetWASPIndicator( 

@PIDx INTEGER, 

©yWasplndicator VARCHAR(10) OUTPUT 
) 

AS 

BEGIN 

r 



Name: uspJGetWasplndicator 

Description: This function will return the WASP indicator for the package ID that 
was sent as an input parameter. The WASP indicator is based on the combination of 
deal classifications that have been established for this deal. The default indicator 
is 'None' (ie if classification information can't be found/etc). All combinations of 
deal classifications should be setup. 

Inputs: PIDx (package ID). 

Outputs: A 'Comon' or 'Dedicated' or 'None' indicator which specifies whether 
or not this package is considered 'WASP'able. 

History: 
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05/12/1999 JAMIE Original Creation. 



08/03/1999 JAMIE Modification to use the deal classification indicators 
off of the package table versus the dealclass table. 



7 

r 



* Declare ail exceptions, cursors 

* and local variables that will be 

* utilized by this procedure. 



7 

DECLARE ©yDealContextlD INTEGER 
DECLARE ©yDealTypelD INTEGER 
DECLARE @yDealVolumeVollD INTEGER 
DECLARE ©yDealPricePeriodID INTEGER 
DECLARE ©yDeallnterruptiblelD INTEGER 

r 



* Populate the various deal classification 

* identifiers based on the information 

* stored on the package table. 



7 

SELECT 

@yDealContextlD = PackageDBCR, 
@yDealTypelD = DealTypedcID, 
@yDealVolumeVollD = VolumeVolatilitydcID, 
@yDealPricePeriodlD = PricePerioddcID, 
©yDeallnterruptiblelD = InterruptibledcfD 
FROM 

Package 

WHERE 

PKG=@PIDx 

r 



* Now go and get the WASP indicator for 

* this particular deal. 



7 

SELECT @yWasplndicator=ISNULL((SELECT IndudelnWasp FROM rOealCIassRules 

WHERE 

DealContext=@yDealContextlD AND 
DealTypedclD=@yDealTypelD AND 
VolumeVolatilitydclD=@yDealVolumeVollDAND 
PricePerioddclD=@yDealPricePeriodlDAND 
lnternjptibledclD=@yDeallnterruptiblelD) l , None') 

END 



GO 

SET QUOTEDJDENTIFIER OFF SETANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI_NULLS ON 
GO 

CREATE PROCEDURE usp_fGetWaspType( 

@PIDx INTEGER, 

@yWaspType VARCHAR(12) OUTPUT 
) 

AS 

BEGIN 

r 



Name: uspJGetWaspType 

Description: This function will return the WASP type field to use for the 



-37- 



specific package (deaf) that is being looked at This type is based on the 
product id setup for the deal. 



Inputs: 

PIDx (package ID). 
Outputs: 

yWaspType - 'OILVLIQUIDS', OR 'GAS'. 
History: 

12/03/2000 JAMIE Original Creation. 



7 

r 



* Declare all exceptions, cursors 

* and local variables that will be 

* utilized by this procedure. 



•/ 

DECLARE ©yDealProduct VARCHAR(50) 
DECLARE ©yDealProductlD INTEGER 

r 



* Initialize the return value to be GAS 



7 

SELECT @yWaspType='GAS' 

r 



*GetthecontratlDoffthedeal 
* (package) table. 



7 

SELECT ©yDealProductID = ISNULL((SELECT KProductiD FROM package where PKG=@PIDx),0) 

r 



* If a contract ID was found then 

* based on the value then convert 

* the netback type. 



7 

IF @yDealProductlD <> 0 
BEGIN 

SELECT @yDealProduct = ISNULL((SELECT shortdescription FROM SEProcessingCodes 
WHERE processingcodeid= @yDealProductlD) 1 , Gas , ) 
IF @yDealProduct = 'Gas' 
BEGIN 

SELECT @yWaspType='GAS' 

END 

IF@yDealProduct='Oir 
BEGIN 

SELECT @yWaspType- OIL' 

END 

IF @yDealProduct = liquids' 
BEGIN 

SELECT @yWaspType='LIQUIDS' 

END 

END 

END 
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GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER ON SET ANSI.NULLS ON 
GO 

CREATE PROCEDURE uspJlsLastDay( 

@DT DATETIME 

) 

AS 

BEGIN 

DECLARE @LDx DATETIME 

DECLARE @a INTEGER 

EXECUTE usp fLastDay @DT,@LDx OUTPUT 

IF@LDx=@DT 

BEGIN 

SELECT @a=1 

END 

ELSE 

BEGIN 

SELECT @a=0 

END 

RETURN(@a) 
END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTED IDENTIFIER ON SET ANSI.NULLS ON 
GO 

CREATE PROCEDURE uspjastday( 

@lastdate DATETIME, 
@ldx DATETIME OUTPUT 
) 

AS 

BEGIN 

r 



* Initially, just set the return value to be 

* equal to the date coming in. 



7 

SELECT @ldx=@lastdate 

r 



* Now, loop thru adding 1 day to the date 

* while the month is still equal. 



V 

WHILE MONTH(@ldx)=MONTH(@lastdate) 
BEGIN 

SELECT @ldx=DATEADD(DAY,1,@ldx) 

END 

r 



* Since the loop would have finished with 

* the date being 1 day greater than the 

* last day of the month, then back it off 

* one day here to get the true end of 

* month value... 



V 

SELECT @ldx=DATEADD(DAY,-1,@ldx); 
END 
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GO 

SET QUOTED IDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTED IDENTIFIER ON SET ANSI.NULLS ON 
GO 

CREATE PROCEDURE usp_GasDayToGasMonth( 

@GasDayX DATETIME, 
©GasMonthX DATETIME OUTPUT 
) 

AS 

BEGIN 

/* 111IiA , t _ 111JLAillllillil . lllllllltl . 

* Initially, just set the return value to be 

* equal to the date coming in. 
**************** •*★♦*****»»»«•«*»««»»»*»«»*»»« 

7 

SELECT @GasMonthX=@GasDayX 

r 



* Now, loop thru subtracting 1 day to the 

* date while the month is still equal 



7 

WHILE MONTH(@GasMonthX)=MONTH(@GasDayX) 
BEGIN 

SELECT @GasMonthX=DATEADD(DAY,-1 ,@GasMonthX) 

END 

r 



* Since the loop would have finished with 

* the date being 1 day less than the 

* first day of the month, then bump it up 

* one day here to get the true beginning of 

* month value... 



7 

SELECT @GasMonthX=DATEADD(DAY, 1 ,@GasMonthX) 
END 



GO 

SET QUOTED JDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTED IDENTIFIER ON SET ANSI.NULLS ON 
GO 

CREATE PROCEDURE usp.GetProductVolumeRound( 

@PKGx INTEGER, 
©RoundNumber INTEGER OUTPUT 
) 

AS 

r 



Name: usp.GetProductRound 

Description: Get the value used to round volumes to based on the information 
in the processing codes table (typelimit field). 

Inputs: 

RoundNumber- Number of digits to round calculations too. 
Outputs: 
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None 
History: 

11/23/2000 JAMIE Original creation. 



•/ 

BEGIN 

DECLARE @zRoundNumber INTEGER 

SELECT ©zRoundNumber = ISNULL((SELECT SPTypeLimit FROM SEProcessingCodes AS SP, Package WHERE 
SP.ProcessingCodelD = Package.KProducttD AND Package.PKG=@PKGx),0); 
SELECT @RoundNumber = @zRoundNumber 
END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI_NULLS ON 
GO 

CREATE PROCEDURE usp_LinePrice( 

©nETID INTEGER, 
@nNomOrAct INTEGER 
) 

AS 

BEGIN 

r 



Name: usp.LinePrice 

Description: This procedure will calculate the line price for a specific Engine 
record. The input parameter nETID represents a unique key to a specific Engine 
record. In addition, the nNomOrAct parameter specifies whether or not to post the 
price line information to the nomination area or the actual area of the engine 
record. The volgroup field on the engine record contains the unique package (deal) 
id. This is used in the link to get the actual price components for the package. 

Inputs: 

nETID = Engine Key 

nNomOrAct = (0=Nomination,1=Actuatization) 
Outputs: 

Either an updated PriceOrRateNom or PriceOrRateAct field on the Engine record. 

The precise field updated depends on the input parameter sent to this process (nNomOrAct). 

History: 

xx/xx/xx (?) CHIP Original Creation. 

04/29/99 JAMIE Modified for WASP 2.10 Release. Structure changes 

made to the Engine and Engine.Master tables. In 

addition, all documentation added. This particular 

portion of the system required extensive changes 

due to the need to store a nom and actual number 

and because all price components are now stored 

off the Engine.MasterPrice table (STID's 8 and 9). 

06/22/2000 JAMIE Modified to pull in the entity, product and service 
in order to get the correct price off the wasp table (values are passed 
to the wasp routine). 

1 1/10/2000 JAMIE Converted to Transact-SQL 
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7 

r 



* Declare all exceptions, cursors 

* and local variables that will be 

* utilized by this procedure. 

10 7 

DECLARE @xEngine_Effective DATETIME 

DECLARE @xETID INTEGER 

DECLARE ©xSequenceNo INTEGER 

DECLARE @xPriceTag VARCHAR(20) 
1 5 DECLARE @xOperandVariable VARCHAR(1) 

DECLARE ©xPriceVariable VARCHAR(15) 

DECLARE @xPriceEntryType VARCHAR(12) 

DECLARE @xEffective DATETIME 

DECLARE @xTID INTEGER 
20 DECLARE @xEntityCID VARCHAR(12) 

DECLARE ©xKProductlD INTEGER 

DECLARE @xKServicelD INTEGER 

DECLARE @yPrice DEC1MAL(19,6) 

DECLARE @yPricelnterimValue DECIMAL(19,6) 
25 DECLARE @yMonthDate DATETIME 

DECLARE @zTemp DECIMAL(19,6) 

^ DECLARE Engine MasterPriceAII CURSOR LOCAL FORWARD ONLY STATIC FOR 

SELECT DISTINCT 

feP 30 emp.ETID, 
£Q emp.SequenceNo, 
.*k emp.PriceTag, 
?Z emp.OperandVariable, 
U I emp.PriceVariable, 

Q 35 pc.PriceEntryType, 

em. Effective, 

;™7 e.TlD, 
N= k.entitycid, 
5 package. KProductID, 

fsk 40 package.KServicelD 
^ FROM 



enginejnasterprice AS emp, 
engine AS e, 
engine.masterAS em, 

45 pricecomponents AS pc, 



F3: 

ay 

ffl 

Q gasinv, 

package 

WHERE 

50 (e.ETID=@nETID) AND 

(em.ETID=e.EM_ETID) AND 
(emp.ETID=em.ETID) AND 
(gasinv.tid=e.tid) AND 
(k.kid=gasinv,kid) AND 

55 (package.pkg=gasinv.pkg) AND 

(pc.PriceTag=emp.PriceTag) AND 
(emp.NomOrActual=@nNomOrAct) 

ORDER BY 

emp.ETID, 

60 emp.SequenceNo 



• Initia lize all fields here... 

65 7 

SELECT @yPrice=0 

SELECT @yPricelnterimValue=0 

r 

70 * Open the cursor to get the pricing 
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* information and loop through all of 

* the price component records. The end 

* result price will ultimately be 

* updated on the engine record. 



•/ 

OPEN Engine.MasterPriceAII 

FETCH NEXT FROM Engine_MasterPriceAll INTO 

©xETlD.gxSequenreNo.QxPriceTag.QxOperandVariable.QxPriceVariable^xPriceEntryType, 

@xEffective t @xTID,@xEntityCID,@xKProductlD,@xKServicelD 

WHILE @@FETCH STATUS = 0 
BEGIN 

r 



* Derive the gas month based on the 

* effective from the engine 

* record. 



*/ 

SELECT @xEngine_Effective=(SELECT effective FROM engine WHERE ETlD=@nETlD) 
EXECUTE usp_GasDayToGasMonth @xEngine_Effective,@yMonthDate OUTPUT 



* Convert the price variable portion to a 

* number. If an index then get the index 

* amounts. The default price for any 

* component not in this case statement is 

* zero (ie.. WASP, UNKNOWN, etc.). 



V 

SELECT @yPricelnterimValue = 0 
IF @xPriceEntryType- Numeric* 
BEGIN 

SELECT @yPricelnterimValue=CAST(@xPriceVariable AS 

DECIMALS 9,6)) 

END 

IF @xPriceEntryType-Monthty IDX' 
BEGIN 

EXECUTE uspJGetlndex 
@yMonthDate,igyMonthDate,@xPrice\/ariable,@yPricelnterimValue OUTPUT 

END 

IF @xPriceEntryType='Daily IDX' 
BEGIN 

EXECUTE uspJGetlndex 
@yMonthDate,@xEngine Effective,@xPriceVariable,@yPricelnterimValue OUTPUT 

END 

IF @xPriceEntryType='Basket IDX' 
BEGIN 

EXECUTE uspJGetlndexBasket 
@yMonthDate,@xEngine Effective,@xPriceVariable,@yPricelnterimValue OUTPUT 

END 

IF ©xPriceEntryType- Wasp* 
BEGIN 

EXECUTE uspJGetCalclndex 
@xTID,@nNomOrAct,@xEntityCID,@xKProductlD,@xKServicelD,@yMonthDate t @yPric^l^ OUTPUT 

END 

IF @yPricelnterimValue IS NULL 
BEGIN 

SELECT @yPricelnterimValue = 0 

END 

r 



At this point the yPricelnterim Value 
contains the individual price component 
amount. Now, depending on the operator, 
apply this to the current total 
(yPrice). The end result is yPrice 
being updated with this component amount 
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IF @xOperandVariable=v 
BEGIN 

SELECT @yPrice=@yPrice-KgyPricelnterimValue 

END 

IF @xOperandVariable- - 
BEGIN 

SELECT @yPrice=@yPrice-@yPricelnterim Value 

END 

IF @xOperand Variable-" 
BEGIN 

SELECT @yPrice=@yPrice*@yPricelnterim Value 

END 

IF @xOperandVariable- F 
BEGIN 

IF (@yPrice<>0) AND (@yPricelnterimValue<>0) 
BEGIN 

SELECT 

@yPrice=@yPrice/@yPricelnterimValue 

END 

END 

FETCH NEXT FROM Engine_MasterPriceAII INTO 
@xETID ( @xSequenceNo,@xPriceTag,@xOperandVariab!e,@xPriceVariable,@xPriceEntryType, 

@xEffective ( @xTID ( @xEntityCID,@xKProductlD ( @xKServicelD 
END 

CLOSE EngineJVIasterPriceAII 
DEALLOCATE Engine.MasterPriceAII 

* Finally, take the results of the price 

* components and update the engine record 

*with the price. 
* 

* If nom calculation then update then 

* nom price. If actual calculation then 

* update the actualized price. 



*/ 

IF @nNomOrAct=0 
BEGIN 

UPDATE 

Engine 
SET 

PriceOrRateNom=@yPrice 

WHERE 

ETID=@nETID 

END 

IF @nNomOrAct=1 
BEGIN 

UPDATE 

Engine 
SET 

PriceOrRateAct=@yPrice 

WHERE 

ETID=@nETID 

END 

END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

CREATE PROCEDURE usp_message( 
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10 



15 



20 



AS 

r 



©messagex VARCHAR(255) 
) 



Name: uspjnessage 

Description: This routine will dictate where and how messages from the system 
will (or will not) be posted. These are transitory messages generated by the 
system (like during a calculation). 

Inputs: 

messagex - Text message to write 

Outputs: 

None 

History: 

11/07/2000 JAMIE Original creation. 



in 



25 



30 



35 



7 

BEGIN 

DECLARE @tmpMessage VARCHAR(254) 

r 

INSERT INTO ApplicationMessages (ApplicationMessageText) VALUES 

PRINT ©messagex 

V - 

SELECT @tmpMessage = ©messagex 
END 



m 

12? » 



40 



45 



50 



GO 

SET QUOTEDJDENTIF1ER OFF SETANSLNULLS ON 
55 GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 



60 



65 



70 



CREATE PROCEDURE usp_PSPrice( 



AS 

BEGIN 

r 



@PIDx INTEGER, 
@WhichPricex INTEGER, 
©GasMonthx DATETIME, 
@DBCRx INTEGER 
) 



Name: usp.PSPrice 
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Description: Price all of the gas inventory items. 
History: 

xx/xx/xx (?) CHIP Original Creation. 

05/03/99 JAMIE Modified for WASP 2.10 Release. Structure changes 
made to the Engine and Engine_Master tables. In 

addition, ail documentation added. In addition modifications were made to drive the 
pricing off package identifier versus Gas Inventory Transaction Identifier (TID). Since 
all pricing is done at a package level. 

Only those entries within the gas inventory with pricetype=1 

will be processed by this procedure. These entries represent 

only the purchase and sale items AND SHOULD HAVE Engine.Master 

records associated with them. 

07/12/2000 JAMIE Modified to check for the actualizedflag on the 
gasinv record. If the flag is set to a Y then set the price accordingly. If 
the flag is set to something other than a Y (ie.. 'N* or null) then the 
price will automatically get a zero. The price or rate number for actuals 
will still calculate AND it is possible that some meters within a deal will 
calculate (if the flag is set) while other meters on the same deal will not 
(if the flag is not set). The engine record is where all calculated results 
are stored and will contain zeros for the entries that have not been 
setup to be actualized. 



7 

r 



* Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE @tmpEndDate DATETIME 
DECLARE ©tmpNextEffectiveDate DATETIME 
DECLARE ©tmpNumberDays INTEGER 
DECLARE ©tmpVolumelnPeriod DECIMAL(19,2) 
DECLARE ©tmpDateToUse DATETIME 
DECLARE @yTID INTEGER 
DECLARE @yActualizedFIag VARCHAR(1) 
DECLARE @ySTID INTEGER 
DECLARE ©yEffective DATETIME 
DECLARE @yETID INTEGER 

DECLARE @zRound INTEGER 

DECLARE GaslnventoryCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

DISTINCT 
TID, 

ActuaiizedFIag 
FROM 

Gasinv 

WHERE 

(PKG=@PIDx)AND 
(PriceType=1)AND 
(DBCR=@DBCRx) 

r 



* At this point the calculation needs to 

* happen. Iterate through each of the 

* inventory items attached to this particular ^ 

* package... Only STID's of 8 or 9 are 

* priced here... (STID=8 is DBCR=0 is a 

* purchase),(STID=9 is DBCR=1 is a sale). 
• 

* Within each inventory item go through 
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* each effective date/STID and use the 

* pricing rules to determine whether the 

* pricing accumulates or is all or 

* nothing. 

5 

7 

EXECUTE usp.GetProductVolumeRound @PIDx,@zRound OUTPUT 
OPEN GaslnventoryCursor 

FETCH NEXT FROM GaslnventoryCursor INTO @yTID,@yActualizedFlag 
1 0 WHILE @@FETCH_STATUS = 0 

BEGIN 

DECLARE EngineCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

DISTINCT 

1 5 e.ETID, 

e. Effective, 
e.STID, 
e.TID 
FROM 

20 Engine AS e, 

Engine Jvlaster AS em 

WHERE 

(em.ETID=e.EM_ETID) AND 
(em.P1D=e.VolGroup) AND 
25 (e.TID=@yTID) 

ORDER BY 

^ e.ETID 
~ OPEN EngineCursor 

M3 FETCH NEXT FROM EngineCursor INTO @yETID,@yEffective ( @ySTID,@yTID 

Q 30 WHILE @@FETCH STATUS = 0 

i BEG,N r 

m 

p * Calculate and update the engine with the 

'l^ 35 * the actual price from the engine.master 

Y~ * via call to the following function. 

s 

*' 

= EXECUTE usp_LinePrice @yETID,@WhichPricex 

Q 40 r 

01 ** 

n i * Determine the volume total to be applied 

^ * to this price line here. This represents 

^* * the sum of the volume between the 

O 45 * effective date and the end of the 

Ljj * month OR the next price effective 

5 * date for this item. The value of 

* tmpNumberDays contains the number of 

* days to apply the price and volumes 
50 * toward within the calculation. 

7 

EXECUTE uspJLastDay @GasMonthx,@tmpEndDate OUTPUT 
SELECT @tmpNextEffectiveDate=(SELECT MIN(effective)-1 FROM 
55 engine AS e WHERE (e.TID=@yTID) AND (e.STID=@ySTID) AND (e.Effective>@yEffective)) 

IF @tmpNextEffectiveDate IS NULL 
BEGIN 

SELECT 

@tmpNextEffectiveDate=@tmpEndDate 
60 END 

IF @tmpNextEffectrveDate<@tmpEndDate 
BEGIN 

SELECT 

@tmpDateToUse=@tmpNextEffectiveDate 
65 END 

ELSE 

BEGIN 

SELECT @tmpDateToUse=@tmpEndDate 

END 
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SELECT 

@tmpNumberOays=DATEDIFF(day,@yEffective 1 @tnipDateToUse) + 1 

IF @WhichPricex=0 
BEGIN 

SELECT 

@tmpVolumelnPeriod=ISNULL((SELECT SUM(Nom) FROM GaslnvD WHERE (GaslnvD.TID=@yTID) 

AND (GaslnvD.GasDay BETWEEN ©yEffective AND @tmpDateToUse)),0) 

END 

IF @WhichPricex=1 
BEGIN 

IF @yActualizedFlag=Y 
BEGIN 
SELECT 

@tmpVolumelnPeriod=ISNULL((SELECT SUM(PipelineActuals) FROM GaslnvD WHERE (GaslnvD.TID=@yTID) 

AND (GaslnvD.GasDay BETWEEN ©yEffective AND @tmpDateToUse)),0) 

END 

ELSE 

BEGIN 

SELECT @tmpVolumelnPeriod=0 
END 

END 

r 



* Update the actual engine volumes and 

* amounts here.., 

V 

IF @WhichPricex=0 
BEGIN- 

UPDATE 



Engine 
SET 



Volume=ROUND(@tmpVolumelnPeriod,@zRound), 

Amount=ROUND((@tmpVolumelnPeriod*Engine.PriceOrRateNom) ) 2) 

WHERE 

END 

IF @WhichPricex=1 
BEGIN 

UPDATE 



ETID=@yETID 



Engine 
SET 



VolumeA^ROUNDf^pVolumelnPeriod.gzRound), 

AmountAct=ROUND{(@tmpVolumelnPeriod*Engine.PriceOrRateAct) ( 2) 

WHERE 



ETID=@yETID 



END 

FETCH NEXT FROM EngineCursor INTO 

@yETID t @yEffective,@ySTID,@yTfD 

END 

CLOSE EngineCursor 
DEALLOCATE EngineCursor 

FETCH NEXT FROM GaslnventoryCursor INTO @yTID,@yActualizedFlag 

END 

CLOSE GaslnventoryCursor 
DEALLOCATE GaslnventoryCursor 
END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
GO 
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SET QUOTEDJDENTIFIER OFF SET ANSI_NULLS ON 
GO 



CREATE PROCEDURE usp_PSPriceAII( 

©GasMonthx DATETIME, 
©DebitCreditx INTEGER, 
©WhichPricex INTEGER, 
@PKGx INTEGER, 
@EntityCIDx VARCHAR(12), 
©IncludelnWASPx VARCHAR(10) 
) 

AS 

BEGIN 

r 



Name: usp.PSPriceAII 
Description: 

Loop thruough ail packages (deals) involved within a given month (purchase 
or sale) and invoke the price procedures. 

Inputs: 

GasMonthx (Gas Month to price), 
DebitCreditx (0=Debit (Purchases) - 1=Credit (Sales)), 
WhichPricex (0=Nominations, ^Actualizations 
PKGx (0=all otherwise specific package ID) 
EntityCIDx (owning company entity id) 

IncludelnWASPx (" for all, otherwise check for 'Common'/Dedicated', or 'None') 
History: 

05/13/99 JAMIE This entire process was rewritten with V2.10 of 
the Gas Control System. Package driven now 
instead of individual inventory item driven. 

07/22/99 JAMIE Include 3rd party deals within the 
calcuaition process. They WILL NOT 8E included within the WASP calculations 
and will be treated the same as "Dedicated" (sanctioned sales) deals. This 
will ensure they are not affecting any other pricing component 

05/24/2000 JAMIE Modified to include the changes to calculate based on company 
entity ID (passed to this calculation). This ensures that WASP calculations/etc 
are all within their respective companies... The deal cursor (PackageCursor) 
will now only select those items where the entity ID for the contract on the deal 
matches the one passed to this routine. 

07/26/2000 JAMIE Modified to include the InciudelnWaspx parameter to 
this particular procedure. This will allow certain types of deals to 
be priced independently of other types (ie.. do 3rd party first in order 
to divie the proceeds either to a pool OR to another deal). 



*/ 

r 



* Declare all variables and cursors 

* that are needed by this process. 



•/ 

DECLARE ©zTypeText VARCHAR(10) 
DECLARE ©zMessage VARCHAR(255) 

DECLARE @yPKG INTEGER 

DECLARE ©ylncludelnWasp VARCHAR(10) 

DECLARE PackageCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 
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DISTINCT 

Gaslnv.PKG 

FROM 

Gaslnv, 

Package, 

K 

WHERE 

Package.PKG=Gaslnv.PKG AND 
K.KID=Package.KID AND 
K.EntityCID=@EntityCIDxAND 
Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.DBCR=@DebitCreditx AND 
Gaslnv.PriceType=1 

ORDER BY 

Gaslnv.PKG 

r 



* Initialize any fields required. 
7 

IF @DebitCreditx=0 
BEGIN 

SELECT @zTypeText='Purchase' 

END 

IF @DebitCreditx=1 
BEGIN 

SELECT @zTypeText='Sale' 

END 

r 



* Loop through each package 

* involved in this calculation. As each 

* deal is fetched get its WASP indicator 

* information in order to determine if 

* it can be involved in this process. 



7 

OPEN PackageCursor 

FETCH NEXT FROM PackageCursor INTO @yPKG 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

EXECUTE uspJGetWASPIndicator @yPKG,@ylncludelnWasp OUTPUT 
IF (@PKGx=0) OR ((@PKGx<>0) AND (@PKGx=@yPKG)) 
BEGIN 

IF (@lnclude!nWaspx=") OR (@lncludelnWaspx=@ylncludelnWasp) 
BEGIN 

SELECT ©zMessage = 'PSPriceAII Running 
for Entity , +@EntityCIDx+" and type '+@zTypeText+*, Package:'*' , 4CONVERT(VARCHAR(10) ) @yPKG)+\../ 

EXECUTE usp message @zMessage 

r 



* Reset the financial override dollar 

* amount to zeros at the beginning of the 

* calculate for the deal... 



IF @WhichPricex=0 
BEGIN 
UPDATE 



FinanctalNomAmount=0 
PKG=@yPKG 



END 



package 
SET 



WHERE 
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yy 

m 
o 

Mi 

3 

01 
ru 

OS 



10 



15 



20 



25 



30 



35 



40 



45 



50 



FinancialActAmount=0 
PKG=@yPKG 



@yPKG ( @WhichPricex,@GasMonthx,@DebitCreditx 



@yPKG,@WhichPricex,@GasMonthx,@DebitCreditx 



@yPKG,@WhichPricex t @GasMonthx ( @DebitCreditx 



END 



IF @WhichPricex=1 
BEGIN 
UPDATE 



package 
SET 



WHERE 



END 



* Create any system generated pricing 

* components for this package... These 

* pricing components are tightly related 

* to the Engine_Master. This is needed 

* to be done prior to populating the 

* Engine with pricing information. 

*/ 

EXECUTE usp.PSPriceComponentsCheck 

r 

Now create all engine items for all 
Engine_Master records. This is where 
the engine will be populated with entries 
based on information stored in the 
Engine.Master. Included is the daily 
index price 'proliferation' routine. 



EXECUTE usp.PSPricePopulateEngine 

r ^ 

* Finally, now go and price the actual 

* engine entries that were created in the 

* previous step... 

7 

EXECUTE usp.PSPrice 



END 

COMMIT WORK 

FETCH NEXT FROM PackageCursor INTO @yPKG 

END 

CLOSE PackageCursor 
DEALLOCATE PackageCursor 
END 



55 



60 



65 



70 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSLNULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceAnyNewlnvoicesNeeded( 



©GasMonthx DATETIME, 

@EntityCIDxVARCHAR(12) 

) 
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AS 

BEGIN 

r 



Name: usp.PSPriceAnyNewinvoicesNeeded 
Description: 

This routine gets executed once a gas month has been put 
in an 'Invoiced' status. It will automatically go out and assign and invoice 
number where one previously did not exist (could use the same invoice 
number as an existing). 

Inputs: 

GasMonthx - Gas month being calculated 
EntityCIDx - owning company 

History: 

12/15/1999 JAMIE Original creation 

12/21/1999 JAMIE Modify to put the monthly aphabetic code as the first 
field of the invoice number to eliminate OGSYS clipping of a leading zero. • 

05/24/2000 JAMIE Modified to only create the invoices within the given owning 
company. The invoice numbers will need to be unique within the entire system. 



*/ 

r 



* Declare all variables and cursors 

* that are needed by this process. 



V 

DECLARE @yTID INTEGER 
DECLARE @yCID VARCHAR(12) 
DECLARE @yPipe VARCHAR(12) 
DECLARE ©zAcctgldentifier VARCHAR(12) 
DECLARE @zYear INTEGER 
DECLARE ©zYearString VARCHAR(1) 
DECLARE ©zMonth INTEGER 
DECLARE ©zMonthString VARCHAR(1) 
DECLARE ©zNumToUse INTEGER 
DECLARE ©zNumToUseLength INTEGER 
DECLARE ©zNumToUseString VARCHAR(3) 
DECLARE ©zNumToUseZeros VARCHAR(3) 
DECLARE @zMaxAcctgldentifierVARCHAR(12) 
DECLARE ©zWorkString VARCHAR(12) 

DECLARE GaslnvCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

GaslnvJID, 
Gaslnv.CID, 
Gaslnv.PipeField 
FROM 

Gaslnv, 

Package, 

K 

WHERE 

Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.PriceType=1 AND 
Gasinv.DBCR=1 AND 

(Acctgldentifier IS NULL OR Acctgldentifier=") AND 
Package.PKG=Gaslnv,PKG AND 
K.KID=Package.KID AND 
K.EntityCID=@EntityCIDx 

ORDER BY 

Gaslnv.CID, 
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Gaslnv.PipeField 

r 



* Determine the prefix to use for the 

* creation of the invoice numbers. If more 

* than 10 years then these numbers begin 

* to be reused. 
* 

* This routine is CHEAP but it should 

* suffice. 



V 

SELECT @zYear=YEAR(@GasMonthx) 

SELECT @zYearString=RIGHT(CONVERT(VARCHAR(4),@zYear) l 1) 
SELECT @zMonth=MONTH(@GasMonthx) 
IF @zMonth=1 

BEGIN 

SELECT @zMonthString='A' 

END 
IF @zMonth=2 

BEGIN 

SELECT @zMonthString='B' 

END 
IF @zMonth=3 

BEGIN 

SELECT @zMonthString='C 

END 
IF @zMonth=4 

BEGIN 

SELECT @zMonthString='D' 

END 
IF @zMonth=5 

BEGIN 

SELECT ©zMonthString^E' 

END 
IF @zMonth=6 

BEGIN 

SELECT @zMonthString='F' 

END 
IF @zMonth=7 

BEGIN 

SELECT @zMonthString='G' 

END 
IF @zMonth=8 

BEGIN 

SELECT @zMonthString='H' 

END 
IF @zMonth=9 

BEGIN 

SELECT @zMonthString=T 

END 

IF @zMonth=10 

BEGIN 

SELECT @zMonthString='J' 

END 

IF @zMonth=11 

BEGIN 

SELECT @zMonthString= , K' 

END 

IF@zMonth=12 

BEGIN 

SELECT @zMonthString='L' 

END 

r 



* Find the starting point to begin 

* assigning new invoices from just 

* in case some numbers need to be 

* assigned. 
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7 

SELECT @zNumToUse=0 

SELECT @zMaxAcctgldentifier=(SELECT max(Acctg Identifier) FROM Gasinv WHERE GasMonth=@GasMonthx AND 
DBCR=1 AND PriceType=1) 
IF LEN(@zMaxAcctgldentifier) = 6 
BEGIN 

SELECT @zWorkString=RIGHT(@zMaxAcctgldentifier,4) 

SELECT @zWorkString=LEFT(@zWorkString,3) 

SELECT @zNumToUse=CONVERT(INTEGER,@zWorkString) 

END 

r 



* Now go get trie records that do not 

* yet have a invoice number assigned 

* to them (ie. execute the cursor). 

r**»* ***** * ************ 



7 

OPEN GaslnvCursor 

FETCH NEXT FROM GaslnvCursor INTO @yTID t @yCID,@yPipe 
WHILE @@FETCH_STATUS = 0 
BEGIN 

r 

* Now go and find one, if one exists. 
7 

SELECT @zAcctgldentifier=(SELECT DISTINCT(Acctg Identifier) FROM Gasinv WHERE 
GasMonth=@GasMonthx AND 

DBCR=1 AND PriceType=1 AND CID=@yCID 
AND PipeField=@yPipe AND Acctgldentifier IS NOT NULL AND Acctgldentifiero") 

IF ©zAcctgldentifier IS NULL 
BEGIN 

r 



* For each of these combinations generate 

* and invoice number and update the Gasinv 

* table... Make sure that the number 

* to use is padded with zeros in order 

* to create a complete invoice number 

7 

SELECT (5>zNumToUse=@zNumToUse+1 
SELECT 

@zNumToUseString=CONVERT(VARCHAR(3),@zNumToUse) 

SELECT @zNumToUseLength=LEN(@zNumToUseString) 
SELECT @zNumToUseZeros=" 
IF ©zNumToUseLength < 3 
BEGIN 

IF @zNumToUseLength=2 

BEGIN 

SELECT @zNumToUseZeros- 0' 
END 

IF @zNumToUseLength=1 

BEGIN 
SELECT 

@zNumToUse2eros='00' 

END 

END; 

SELECT 

@zAcctgldentifie^=@zMonthString^zYearString-^@zNumToUseZeros-^@zNumToUseString+'N , 

r 



* Finally, post the invoice number that 

* was just created to the gas inventory 

* table. 



7 

UPDATE 
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Gaslnv 
SET 

Acctgldentifier=@zAcctgldentifier 

WHERE 

GasMonth=@GasMonthx AND 
DBCR=1 AND 
PriceType=1 AND 
CID=@yCIDAND 
PipeField=@yPipe AND 
TID=@yTID 

END 

FETCH NEXT FROM GaslnvCursor INTO @yTID,@yCID,@yPipe 

END 

CLOSE GaslnvCursor 
DEALLOCATE GaslnvCursor 
END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceAssignlnvoiceNo( 

@GasMonthx DATETIME 
) 

AS 

BEGIN 

SET NOCOUNTON 

r 



Name: usp_PSPriceAssignlnvoiceNo 

Description: This routine will clear out any existing invoice numbers on the gas 
inventory table AND generate/assign an invoice number and post to the gas 
inventory table. 

This particular routine is only looking at 'Sales' (DBCR=1) within the specified 
gas month (GasMonthx) that have a price type of T (ie.. not a transport inventory 
item). 

The format of the invoice number that gets generated will be as follows: 
Character 



1 Represents alph code for month (A=January, B=February, etc.). 

2 Represents the last digit of the year (1999=9, 2000=0, etc.). 
3-5 Represents unqiue number assigned. 

6 Represents 'N' for Nominations. 

These invoice numbers are generated uniquely for all sales meters within a given pipe and 
company identifier. This procedure will assign the invoice number to both the 
nom and actual fields. Later (during actual calculations) the actual invoice number may 
or may not get updated based on the modifications made to the volumes or prices. 

Inputs: GasMonthx (Gas Month to calculate), 

History: 

10/27/1999 JAMIE Original creation 

1 1/19/1999 JAMIE Modified the number creation to post the final character as 
an 'N\ 

12/21/1999 JAMIE Modified the number creation process to put the monthly 
alphabetic code at the beginning of the invoice number instead of the 2nd 
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character 



7 

r 



* Declare all variables and cursors 

* that are needed by this process. 

7 

DECLARE @yCID VARCHAR(12) 
DECLARE @yPipe VARCHAR(12) 
DECLARE ©zAcctgldentifier VARCHAR(12) 
DECLARE @zYear INTEGER 
DECLARE @zYearString VARCHAR(1) 
DECLARE @zMonth INTEGER 
DECLARE ©zMonthString VARCHAR(1) 
DECLARE @zNumToUse INTEGER 
DECLARE @zNumToUseLength INTEGER 
DECLARE @zNumToUseString VARCHAR(3) 
DECLARE @zNumToUseZeros VARCHAR(3) 

* Determine the prefix to use for the 

* creation of the invoice numbers. If more 

* than 10 years then these numbers begin 
*tobe reused. 

* This routine is CHEAP but it should 

* suffice. 



7 

SELECT @zYear=YEAR(@GasMonthx) 

SELECT @zYearString=RIGHT(CONVERT(VARCHAR(4),@zYear),1 ) 
SELECT @zMonth=MONTH(@GasMonthx) 
IF @zMonth=1 

BEGIN 

SELECT @zMonthString='A' 

END 
IF @zMonth=2 

BEGIN 

SELECT ©zMonthString- B' 

END 
IF @zMonth=3 

BEGIN 

SELECT @zMonthString='C 

END 
IF @zMonth=4 

BEGIN 

SELECT @zMonthString='D' 

END 
IF @zMonth=5 

BEGIN 

SELECT @zMonthString= , E' 

END 
IF @zMonth=6 

BEGIN 

SELECT @zMonthString='F 

END 
IF @zMonth=7 

BEGIN 

SELECT @zMonthString='G' 

END 
IF @zMonth=8 

BEGIN 

SELECT gzMonthString^H' 

END 
IF @zMonth=9 

BEGIN 

SELECT @zMonthString=T 
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END 

IF @zMonth=10 

BEGIN 

END 

IF@zMonth=H 

BEGIN 

END 

IF@zMonth=12 

BEGIN 

END 

r 



Clear out the invoice number that may 
have preexisted for this particular 
gas month (this number will always be 
empty UNLESS the gas month is opened 
and closed more than once). 



BEGIN TRANSACTION 
UPDATE 

Gaslnv 
SET 

WHERE 



COMMIT WORK 

r 



* Now build a cursor that contains all of 

* the unique combinations of company and 

* pipeline (ordered by company and pipeline). 



V 

SELECT @zNumToUse=0 

DECLARE GaslnvCursor CURSOR LOCAL STATIC FORWARD ONLY FOR 
SELECT 

DISTINCT 
(Gaslnv.CID), 
(Gaslnv.PipeField) 
FROM 

Gaslnv 

WHERE 

Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.PriceType=1 AND 
Gasinv.DBCR=1 

ORDER BY 

Gaslnv.CID, 
Gaslnv.PipeField 

OPEN GaslnvCursor 

FETCH NEXT FROM GaslnvCursor INTO @yCID,@yPipe 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

r 



* For each of these combinations generate 

* and invoice number and update the Gaslnv 

* table... Make sure that the number 

* to use is padded with zeros in order 

* to create a complete invoice number. 

* REALLY CHEAP ZERO PADDING. 



V 



SELECT ©zMonthString^J' 
SELECT @zMonthString='K' 
SELECT @zMonthString=V 



Acctgldentifier=NULL 

GasMonth=@GasMonthx AND 
DBCR=1 AND 
PriceType=1 AND 

(Acctgldentifier IS NOT NULL OR Aodgldentifiero") 
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SELECT @zNumToUse=@zNumToUse+1 

SELECT @2NumToUseString=CONVERT(VARCHAR(3) ( @zNumToUse) 
SELECT @zNumToUseLength=LEN(@zNumToUseString) 
SELECT @zNumToUseZeros=" 
IF @zNumToUseLength < 3 
BEGIN 

IF @zNumToUseLength=2 
BEGIN 

SELECT @zNumToUseZeros='0' 

END 

IF @zNumToUseLength=1 
BEGIN 

SELECT @zNumToUseZeros='00' 

END 

END 

SELECT 

@Mcctgldentifier=@zMonthStrin^ 

f iAAijLA AAiiiiAAi AAii AAAAA Aii 

* Finally, post the invoice number that 

* was just created to the gas inventory 
•table. 



7 

UPDATE 

Gaslnv 
SET 

Acctg ldentifier=@zAcctg Identifier 

WHERE 

GasMonth=@GasMonthx AND 
DBCR=1 AND 
PriceType=1 AND 
CID=@yCIDAND 
PipeFie!d=@yPipe 

COMMIT WORK 

FETCH NEXT FROM GaslnvCursor INTO @yCID,@yPipe 

END 

CLOSE GaslnvCursor 
DEALLOCATE GaslnvCursor 
END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSl.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSl.NULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceAuto 
AS 

BEGIN 

r 



Name: usp_PSPriceAuto 
Description: 

This procedure will be scheduled at automatically calculate the gas months 
in their respective stages. Noms get calculated for gas months in the 'Sales' stage. 
Pipeline actuals get calculated for gas months in the Invoiced 1 stage. All other gas 
months are ignored by this process. 

Inputs: 

None 
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History: 



07/29/1999 JAMIE Original Creation. 

10/20/1999 JAMIE Modified to invoke the PSPriceCostAII routine which will 
calculate other costs for deals and post them to the engine table. 

03/22/2000 JAMIE Modified to invoke the single month calculation routine. This will 
ensure easier (non duplicated) maintenance on procedures to update price calculations. 



V 

/* xi xxxxxxix 

* Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE @yGasMonth DATETIME 

/* ^ LlLLL1LL _ lliLl l lLl lLlllllll ll l ll 

* First, calculate ail of the nom 

* numbers (each gas month). 

*/ 

DECLARE GasMonthCursorl CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

GasMonth 
FROM 

rGasMonth 

WHERE 

CurrentStatus='Sales' AND 
(LockedUser IS NULL OR LockedUser=") 

ORDER BY 

GasMonth 

OPEN GasMonthCursorl 

FETCH NEXT FROM GasMonthCursorl INTO @yGasMonth 
WHILE @@FETCH_STATUS = 0 
BEGIN 

EXECUTE usp.PSPriceAutoMonth @yGasMonth,0 
FETCH NEXT FROM GasMonthCursorl INTO @yGasMonth 

END 

CLOSE GasMonthCursorl 
DEALLOCATE GasMonthCursorl 

r 



* Now calculate based on the pipeline 

* actuals each month. 



7 

DECLARE GasMonthCursor2 CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

GasMonth 
FROM 

rGasMonth 

WHERE 

CurrentStatus- Invoiced' AND 
(LockedUser IS NULL OR LockedUser=") 

ORDER BY 

GasMonth 

OPEN GasMonthCursor2 

FETCH NEXT FROM GasMonthCursor2 INTO ©yGasMonth 
WHILE @@FETCH_STATUS = 0 
BEGIN 

EXECUTE usp.PSPriceAutoMonth @yGasMonth,1 
FETCH NEXT FROM GasMonthCursor2 INTO @yGasMonth 

END 

CLOSE GasMonthCursor2 
DEALLOCATE GasMonthCursor2 
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END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceAutoMonth( 

@GasMonthx DATETIME, 
@WhichVotumex INTEGER 
) 

AS 

BEGIN 

SETNOCOUNTON 
/* 



Name: usp.PSPriceAutoMonth 
Description: 

This procedure will be execute all of the price calculation procedures 

required for a given month INCLUDING locking the month from other executions... This 

particualr procedure will be executed asynchronously by the system through the online 

screens. 

Inputs: 

GasMonthx (Gas month to calculate) 

Which Volumex (Price noms=0, Price actuals=1) 

History: 

08/31/1999 JAMIE Original Creation. 

12/15/1999 JAMIE Modified to execute a new stored procedure once 
the gas month has been changed to the 'Accounting' status. This new 
procedure will mark and 'zap' the invoice numbers (amongst other things) 
on those gas inventory items were some sort of a price or volume adjustment 
was made. 

03/22/2000 JAMIE Modified this process to handle all of the calculations for 
gas months, etc. Moved the 'Divie' process to this routine (was buried within 
the transport cost module). 

05/24/2000 JAMIE Modified to enable an outer cursor on company entity (CID). This will 
allow for the partitioning of the calculations based on company ID (so we don't mix 
WASP Pool results/etc). 

07/26/2000 JAMIE Modified to incorporate the changes to process calculations for certain 
types of deals prior to others (ie. 3rd party first so that profits can be distributed. 
This change included passing a new parameter to the PSPriceAII function (on which 
pool ("for all)... 

08/25/2000 JAMIE Modified to remove logic that invoked the older calculation 
routines. 

02/01/2001 JAMIE Modified to remove the transport section (commented out). 



7 

DECLARE @yCIDEntity VARCHAR(12) 
DECLARE ©yGasMonth DATETIME 
DECLARE ©yCurrentStatus VARCHAR(20) 

DECLARE EntityCIDCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
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SELECT 

CID 
FROM 

company 

WHERE 

EntitylndicatoF'Y' • 

ORDER BY 

CID 

r 



Execute a cursor to calculate based on 
entity. 



*/ 

OPEN EntityCIDCursor 

FETCH NEXT FROM EntityCIDCursor INTO @yCIDEntity 
WHILE @@FETCH_STATUS = 0 
BEGIN 

r 



* Now only calculate if the month 

* is not currently involved with a 

* calculation of some sort (month 

* needs to be unlocked). 

* If the status was modified and the 

* current status in 'Invoiced 1 then 
*go and build all of the pipeline 

* actuals. 



7 

DECLARE GasMonthCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

GasMonth, 

CurrentStatus 

FROM 

rGasMonth 

WHERE 

GasMonth=@GasMonthx AND 
(LockedUser IS NULL OR LockedUser=") 

OPEN GasMonthCursor 

FETCH NEXT FROM GasMonthCursor INTO (5>yGasMonth,@yCurrentStatus 
WHILE @@FETCH STATUS = 0 
BEGIN 

r 



* Indicate that the gas month is in 

* progress so that no one else tryes to 

* calculate at the same time. 



7 

UPDATE 

rGasMonth 
SET 

LockedUser='PSPriceAutoM\ 
LockedDate=getdate() 

WHERE 

GasMonth-@GasMonthx 

r 



* Calculate prices on all sales deals... 



7 

EXECUTE usp.PSPriceAII 
@GasMonthx,1,@WhichVolumex,0 l @yCirjEntity; 

r 



* Calculate 'Other Costs' associated to 

* all sales deals (required here in 

* order to post the other cost amounts 
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* to WASP pools/etc. 



7 

EXECUTE usp.PSPriceCostAII 

©GasMonthx.gWhichVolumex.QyCIDEntity, 1 

r 



@GasMonthx,@WhichVolumex,@yCIDEntity 



* Now create the temporary WASPRouting 

* table entries for ail products, services 

* and wasp types. The calculations will 

* not 'walk back' from sale to purchase 

* here (unless OLD routing month)... 

7 

EXECUTE usp.PSPriceWASPCalc 



* If new routing method then resolve based 

* on entity and IncludelnWasp pool. This 

* is done this way in order to potentially 

* distribute proceeds from 3rd party 

* deals back to either a WASP pool meter 

* or to another deal... 
» 

* 1. Resolve and price 'None' pool. 

* 2. Divie out any proceeds. 

* 3. Resolve and price 'Dedicated' pool. 

* 4. Resolve and price 'Common' pool. 

7 

EXECUTE usp.PSPriceWASPCalcResolveDriver 
©GasMonthx.QWhichVolumex.gyCIDEntity.'None' 

EXECUTE usp.PSPriceAII 
QGasMonthx.O.gWhichVolumex.O.gyCIDEntity.'None 1 

EXECUTE usp.PSPriceCostAII 
@GasMonthx,@WhichVolumex,@yCIDEntity,0,'None' 

EXECUTE usp.PSPriceWASPDivieOutProceedsN 

@GasMonthx,@WhichVolumex,@yCIDEntity 

EXECUTE usp.PSPriceWASPCalcResolveDriver 
@GasMonthx,@WhichVolumex,@yCIDEntity;Dedicated' 

EXECUTE usp.PSPriceAII 
@GasMonthx ( 0,@WhichVolumex,0,@yCIDEntity;Dedicated , 

EXECUTE usp.PSPriceCostAII 
@GasMonthx t @WhichVolumex t @yCIDEntity ( 0;Dedicated' 

EXECUTE usp.PSPriceWASPCalcResolveDriver 
@GasMonthx ( @WhichVolumex ( @yCiDEntity;Common , 

EXECUTE usp.PSPriceAII 
@GasMonthx,0,@WhichVolumex,0,@yCIDEntity;Common' 

EXECUTE usp.PSPriceCostAII 
@Gasrvtonthx t @WhichVolumex,@yCIDEntity ( 0;Common' 

r 

* Calculate Transport contract gas inventory 

* items (create them along with any 

* transport deals). 



@GasMonthx,@WhichVolumex,0,@yCIDEntity 



EXECUTE usp.PSPriceTransportAII 



* Indicate that the gas month is finished 

* and commit the updates. 

V 

UPDATE 

rGasMonth 
SET 

LockedUser=" 
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WHERE 



GasMonth=@GasMonthx 



10 



15 



20 



25 



@yGasMonth,@yCIDEntity 
@yGasMonth,@yCurrentStatus 



* Check to make sure that any items that 

* require an invoice number gets created. 

* This is only applicable when the gas month 

* is in an 'Invoiced' state already. This 

* picks up any new deals/meters created 

* after the gas month promoted to 'Invoiced'. 

7 

IF (@yCurrentStatus- Invoiced') 
BEGIN 

EXECUTE usp.PSPriceAnyNewlnvoicesNeeded 
END 

FETCH NEXT FROM GasMonthCursor INTO 



END 

CLOSE GasMonthCursor 

DEALLOCATE GasMonthCursor 

FETCH NEXT FROM EntityCIDCursor INTO @yCIDEntity 

END 

CLOSE EntityCIDCursor 
DEALLOCATE EntityCIDCursor 
END 



30 



m 



F5 i 

O 



35 



40 



45 



50 



55 



60 



65 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSIJMULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SETANSIJJULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceComponentsCheck( 



AS 

BEGIN 

r 



@PIDx INTEGER, 
©WhichPricex INTEGER, 
©GasMonthx DATETIME, 
@DBCRx INTEGER 
) 



Name: usp.PSPriceComponentsCheck 
Description: 

Create any system generated pricing components automatically. Any existing 
system generated pricing components are deleted. Then they are recreated 
within this particular process. This procedure should be invoked for all 
packages that were created within a given gas month. Current System 
Generated items include price components tagged as 'NETBACK PERCENTAGE' or 
'WASP. 

Inputs: 

PIDx - Package Identifier 
WhichPricex - 0=Nominations, 1=ActuaIs 
GasMonthx - Gas Month for Price Calculations 
DBCRx - 0=Purchase, 1=Sales 



70 



History: 
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05/12/1999 JAMIE Original Creation. 



07/28/2000 JAMIE Modify this process so that OIL, GAS or LIQUIDS is used when 
obtaining the netback percentage. This is based on the product ID for the deal. 

08/17/2000 JAMIE Modify the process to eliminate any pricing entries on 
WASP/EQUITY deals ('Common' pool). This will ensure that the only pricing 
entries on the wasp deals are those that are system generated. 



V 

r 



* Declare all variables and cursors 

* that are needed by this process. 



V 

DECLARE QzProductID INTEGER 
DECLARE QzProductNetbackType VARCHAR(12) 
DECLARE ©yWasplndicator VARCHAR(10) 
DECLARE @yEngineMasterRecords INTEGER 
DECLARE @yEngineMasterETID_Key INTEGER 
DECLARE @yEngineMasterPriceSequence INTEGER 
DECLARE QyNetBackPercentage DECIMAL(19,8) 

DECLARE ETIDCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

DISTINCT 
ETID 

FROM 

Engine_Master 

WHERE 

PID=@PIDx 

r 



* Get the WASP indicator for this 

* particular deal via a function call. 

* This is based on how the deal is 

* classified. 

7 

EXECUTE uspJGetWasplndicator @PIDx,@yWasplndicator OUTPUT 

r 



* All deals should have system generated 

* price entries removed here... 
* 

* In addition, 'Common' wasp pool deals 

* will have all non system generated 

* price entries removed. Only purchase 

* deals are impacted by system generated 

* entries. 



7 

OPEN ETIDCursor 

FETCH NEXT FROM ETIDCursor INTO @yEngineMasterETID_Key 
WHILE @@FETCH_STATUS = 0 
BEGIN 

IF @yWasplndicator='Common' 
BEGIN 

lF@DBCRx=0 

BEGIN 

DELETE 

FROM 

Engine.MasterPrice 

WHERE 

(Engine_MasterPrice.ETID=@yEngineMasterETID_Key) AND 
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5 a 



(Engine.MasterPrice.NomOrActual=@WhichPricex) 

END 

END 

5 ELSE 

BEGIN 

DELETE 

FROM 

Engine_MasterPrice 

10 WHERE 

(Engine JVIasterPrice.ETID=@yEngineMasterETID_Key) AND 

(Engine_MasterPrice.NomOrActual=@WhichPricex) AND 
1 5 (Engine_MasterPrice.PriceTag=ANY(SELECT 
PriceTag FROM PriceComponents WHERE SystemGenerated=T)) 

END 

FETCH NEXT FROM ETIDCursor INTO @yEngineMasterETID_Key 

END 

20 CLOSE ETIDCursor 

DEALLOCATE ETIDCursor 

r 

* Now generate (insert) the price 

25 * components that are required. These 

* system generated price components are 

* recognized by the PriceTag name. There 

* should be a section within this procedure 

* specifically for any system generated 
30 * pricing components. 



Uf — 



55 



35 * "WASP" and "NETBACK PERCENTAGE' 

* 

* These two compononents go hand-in-hand. 
* 

s * 1 . Only system generate these if it is 

fi 40 * a purchase task and the deal is considered 

™ * 'Wasp'able. 

fU *' 

IF ((@yWasplndicator='Common') OR (@yWasplndicator='Dedicated')) AND (@DBCRx=0) 
^ 45 BEGIN 

O r 



* Determine the correct product type in order 

* to get the correct contract netback 
50 * tier information. 



7 

EXECUTE uspJGetWaspType @PIDx,@zProductNetbackType OUTPUT 

r 



* Now go and find an EngineJMaster record 

* to attach these components too. If one 

* is not found, then insert one. An 

* attempt to preserve the existing record 
60 * will ensure that nominations and pipe 

* line actuals will utilize the same 

* Engine.Master entity. 

7 

65 SELECT @yEngineMasterRecords = ISNULL((SELECT countfl FROM engine.master 

WHERE PlD=@PlDx 

AND Effective=@GasMonthx AND STID=8 AND VolLevel=0) f 0) 
IF @yEngineMasterRecords=0 
BEGIN 

70 INSERT 
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INTO 

Enginejvlaster 

(PID.Effective.STID.VolLevel.VolGroup.Varfixed.MMBtuMCF.TierThreshold) 

VALUES 

(@PIDx ( @GasMonthx,8,0,@PIDx ( 1 ( 1,1) 

END 

SELECT @yEngineMasterETID_Key = ISNULL((SELECT MIN(ETID) FROM Enginejvlaster 

WHERE PID=@PIDx 

AND Effective=@GasMonthx AND STID=8 AND VolLevel=0),0) 

r 

* At this point we now either have a valid 

* ETID (key) to the Enginejvlaster or 0. 

* There should be only a single record on 

* the Engine_Master for these types of 

* packages. 

* Now insert the 'WASP' price component. 
7 

IF ©yEngineMasterETID Key > 0 
BEGIN 

SELECT ©yEngineMasterPriceSequence - ISNULL((SELECT 

MAX(SequenceNo) FROM Engine JVIasterPrice 

WHERE ETID=@yEngineMasterETID_Key AND NomOrActual=@WhichPricex),0) 
SELECT @yEngineMasterPriceSequence = 

@yEngineMasterPriceSequence+1 

INSERT 

INTO 

Engine.MasterPrice 

(ETID.PriceTag .Operand Variable, Price Variable,CreateUser,CreateDate,LastUpdateUser, 

LastUpdateDate.SequenceNo.NomOrActual) 

VALUES 

(QyEngineMasterETID.Key/WASP'/v/WASP.UPPERtuser.nameO), 

getdate(),UPPER(user nameOl.getdateO.QyEngineMasterPriceSequence.gWhichPricex) 
END 

r 



* Now invoke the 'NETBACK PERCENTAGE' 

* calculation routine and then insert this 

* particular price component. Remember to 

* put the netback percentage into its 

* 'string' representation. 



7 

IF @yEngineMasterETID_Key > 0 
BEGIN 

EXECUTE uspJGetNetbackPercentage 
@PIDx p @GasMonthx,@2ProductNetbackType,@WhichPricex,@yNefflackPercentage OUTPUT 

IF @yNetBackPercentage IS NULL 
BEGIN 

SELECT @yNetBackPercentage = 0 

END 

SELECT @yEngineMasterPriceSequence = 



@yEngineMasterPriceSequence+1 



INSERT 

INTO 

Engine.MasterPrice 



(ETID.PriceTag, Operand Variable, Price Variable.CreateUser, 

CreateDate,LastUpdateUser,LastUpdateDate,SequenceNo,NomOrActual) 

VALUES 

(©yEngineMasterETID.Key/NETBACK 

PERCENTAGE7UTRIM(STR(@yNetBackPercentage,8,4)), 
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UPPER(CURRENT_USER),getdate(),UPPER(CURRENT_USER),getdate() ( @yEngineMasterPriceSequence 
,@WhichPricex) 

END 

END 

END 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTED IDENTIFIER OFF SET ANSI.NULLS ON 
GO 



CREATE PROCEDURE usp_PSPriceCost( 



©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
@PKGx INTEGER, 
@STIDx INTEGER, 
@PCIDx INTEGER, 
@TIDx INTEGER, 
@CostLevelxVARCHAR(12), 
©CostBasisx VARCHAR(40), 
@CostRateOrAmountx DECIMAL(19,6), 
©TotalVoIumex DECIMAL(19,2), 
©MeterVolumex DECIMAL(19,2) 
) 



AS 

BEGIN 

r 



Name: usp_PSPriceCost 

Description: This particular procedure will perform the actual calculations and post 
updates to the engine table (for other costs associated with deals). This is done 
for each meter within a deal for an other cost item. 

Inputs: 

GasMonthx (Gas Month to cost) 
WhichPricex (0=Nominations, ^Actualizations) 
PKGx(deat id) 
STIDx (engine transaction id) 

PCIDx (deal other cost unique id (see PackageCosts table) 

TIDx (gas inventory identifier) 

CostLevelx (Level that cost is appropriated towards) 

CostBasisx (rules governing calculation of the cost) 

CostRateOrAmountx (rate or amount involved in cost) 

TotalVolumex (total volume for deal) 

MeterVolumex (total volume for meter within deal). 

History: 

10/20/99 JAMIE Initial creation. 

03/26/00 JAMIE Modified to allow for zero volume deals to have other (fixed) costs 
assigned to them. 

10/03/20 JAMIE Modified to correct problem associated with 'METER' 
calculations using entire deal volume. 

12/01/2000 JAMIE Modified to apply the netback percentage to the other 
cost when it is calculated. This percentage is only applicable to purchase 
deals that are in the 'Common' or 'Dedicated' pools. 
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12/10/2000 JAMIE Modified to check for the apply netback flag on the 
cost record in order to determine if the netback percentage should be 
applied to the cost 



7 



* Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE ©zNetbackPercent DECIMAL(19,6) 
DECLARE ©zProductNetbackType VARCHAR(12) 
DECLARE ©yWasplndicator VARCHAR(10) 
DECLARE ©zDBCR INTEGER 
DECLARE @zApplyNetback VARCHAR(1) 

DECLARE ©zPercentToApply DEC!MAL(19,4) 
DECLARE ©zAmountToApply DECIMAL) 19,2) 
DECLARE ©zTotalSaleOrPurchValue DECIMAL(19,2) 
DECLARE ©zTotalMeters INTEGER 



* Initialize any fields required. 



7 

SELECT @zNetbackPercent=0 
SELECT @zAmountToApply=0 
SELECT @zPercentToApply=1 
SELECT @zTotalSa!eOrPurchValue=0 

r 



* Get the WASP indicator for this 

* particular deal via a function call. 

* This is based on how the deal is 

* classified. 



7 

EXECUTE usp JGetWasplndicator @PKGx,@yWasplndicator OUTPUT 

SELECT @zDBCR=ISNULL((SELECT packagedbcr FROM package WHERE pkg=@PKGx),0) 

SELECT @zApplyNetback=ISNULL((SELECT applynetback from packagecosts WHERE pcid=@PCIDx)/V) 

r 

* Determine the correct product type in order 

* to get the correct contract netback 

* tier information. 



7 

IF @zDBCR=0 

BEGIN 

IF (@yWasplndicator='Common') OR (@yWasplndicator='Dedicated') 
BEGIN 

EXECUTE uspJGetWaspType @PKGx,@zProductNetbackType 

OUTPUT 

EXECUTE uspJGetNetbackPereentage 
@PKGx,@GasMonthx,@zProductNetbackType,@WhichPricex,@zNetbackPercent OUTPUT 

END 

END 

r 



* Determine the percentage of whatever the 

* cost will calculate to here. 

* involved with this calculation. If it 

* is a deal level fixed cost then show 

* zeros IF there is no volume. 



7 
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IF (@MeterVolumex<>0) AND (©Total Vo!umex<>0) 
BEGIN 

IF @CostLevelx='DEAL' 
BEGIN 

SELECT 

@zPercentToApply=CONVERT(DECII\^ 

END 

END 

IF (@MeterVolumex = 0) AND (@CostLevelx='DEAL') 
BEGIN 

SELECT @zPercentToApply=0 

END 

/* 



* If the cost is a FIXED AMOUNT and there 

* is no volume for the deal then determine 

* the amount to apply based on the number 

* of meters involved in the deal. If 1 

* meter only then 100% of cost assessed to 

* that meter. If 2 meters then 50% assessed 

* to each one. etc.. 



7 

IF (@MeterVolumex=0) AND (@TotalVolumex=0) 
BEGIN 

IF @CostBasisx='Fixed Amount 1 
BEGIN 

SELECT @zTotalMeters=ISNULL((SELECT countfl FROM Gaslnv 
WHERE PKG=@PKGx AND GasMonth=@GasMonthx),0) 

IF ©zTotalMeters <> 0 
BEGIN 

SELECT 

@zPercentToApply=(1/CONVERT(DECIMAL(19,4),@zTotaiMeters)) 

SELECT 

@zAmountToApp(y=(@CostRateOrAmountx*@zPercentToApply) 

END 

END 

END 

r 



* Calculate based on fixed amount 

* here... Since this is a fixed amount 

* then the amount should be calculated 

* proportionately based on the total 

* volume percentage to the deal. 



7 

IF @CostBasisx='Fixed Amount 1 
BEGIN 

IF (@CostRateOrAmountx<>0) AND (@zPercentToApply<>0) 
BEGIN 

SELECT 

@zAmountToApply=(@CostRateOrAmountx*@zPercentToApply) 

END 

END 

r 



* Calculate based on a rate applied 

* against MMBTU's here... Regardless 

* of whether or not this is a 'DEAL 

* level or 'METER' level charge the 

* cost should be based on meter 

* volume. 



7 

IF (@MeterVolumex<>0) 
BEGIN 

IF @CostBasisx='Rate Applied to MMBTUs' 
BEGIN 

IF (@CostRateOrAmountx<>0) 
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BEGIN 

SELECT 

@zAmountToAppty=((CONVERT(DECIMAL(19 ) 4) ) @MeterVolumex)*@CostRateOrAmountx)) 

END 

END 

END 

r 



* Calculate based on the total dollar amount 

* previously calculated here.,. Since 

* this particular cost is calculating on 

* just the amount for the associated 

* meter (ie.. sum of engine based on 

* TID) then the 'PercentToApply 1 is 

* not applicable. 

V 

IF (@MeterVolumex<>0) AND (@TotalVolumex<>0) 
BEGIN 

IF @CostBasisx- Rate Applied to Value' 
BEGIN 

IF @WhichPricex=0 
BEGIN 

SELECT 

@zTota!SaleOrPurchValue=ISNULL((SELECT SUM(amount) FROM engine WHERE tid=@tidx AND (stid=8 OR 
stid=9)),0) 

END 

IF @WhichPricex=1 
BEGIN 

SELECT 

@zTotalSaleOrPurchValue=ISNULL((SELECT SUM(amountact) FROM engine WHERE tid=@tidx AND (stid=8 OR 
stid=9)),0) 

END 

if(@CostRateOrAmountx<>0) AND (@zTotalSaleOrPurchValue<>0) 
BEGIN 

SELECT 

@zAmountToApply=(@zTotalSaleOrPurchValue*@CostRateOrAmountx) 

END 

END 

END 

r 



* Finally, post the cost amount to the 

* Engine table. If the engine table for 

* this transaction does not yet exist then 

* insert it, otherwise just update it.. 
* 

* Make sure that actual calculations and 

* nomination calculations are done within 

* their respective 'buckets'. 



7 

r 



* First apply the netback if it 
*is there AND if the apply 

* netback flag has been set 

* on the cost item. 



7 

IF @zApplyNetback = T 
BEGIN 

IF @zNetbackPercent<>0 
BEGIN 

SELECT 

@zAmountToApply=ROUND((@zAmountToApply # @zNetbackPercent),2) 

END 

END 

r 
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* Apply and post the amount 
•h ere... 

7 

IF @WhichPricex=0 
BEGIN 

IF (SELECT countH FROM Engine WHERE TID=@TIDx AND STID=@STIDx AND 
Effective=@GasMonthx AND VolLevel=0)=0 

BEGIN 

INSERT 

INTO 

Engine 

(TID,STID,Effective,VolLevel,VolGroup,MMBTuMCFW 
meAct,AmountAct ( EM_ETID) 

VALUES 

(©TIDx.gSTIDx.QGasMonthx.O.gPKGx.l.O.ROUNDtQzAmountToApply^l.O.O.O.O.QPCIDx) 
END 

ELSE 

BEGIN 

UPDATE 

engine 
SET 

Amount=Amount+KOUND(@zAmountToApply,2) 

WHERE 

TID=@TIDx AND 
STID=@STIDxAND 
Effective=@GasMonthx AND 
VolLevel=0 

END 

END 

IF @WhichPricex=1 
BEGIN 

IF (SELECT countH FROM Engine WHERE TID=@TIDx AND STID=@STIDx AND 
Effective=@GasMonthx AND VolLevel=0)=0 

BEGIN 

INSERT 

INTO 

Engine 

(TID.STID.Effectwe.VolLevel.VoG 
meAct,AmountAct,EM_ETID) 

VALUES 

(©TIDx.QSTIDx.QGasMonthx.O.QPKGx.l.O.O.O.O.O.ROUNDtgzAmountToApply^J.QPCIDx) 
END 

ELSE 

BEGIN 

UPDATE 

engine 
SET 

AmountAct=AmountAct+ROUND(@zAmountToApply,2) 

WHERE 

TID=@TIDx AND 
STID=@STIDxAND 
Effective=@GasMonthx AND 
VolLevel=0 

END 

END 

END 



GO 
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SET QUOTED IDENTIFIER OFF SET ANSI JMULLS ON 
GO 



SET QUOTED JDENTIFIER OFF SET ANSl.NULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceCostAII( 

©GasMonthx DATETIME, 
@WhichPricex INTEGER, 
@EntityCIDxVARCHAR(12), 
@DBCRx INTEGER, 
©IncludelnWaspx VARCHAR(10) 
) 

AS 

BEGIN 

r 1Jl l , Jl » . 111 x 1 tiiiiiiiiiiiii»ix»i»xii» 

Name: usp.PSPriceCostAII 

Description: Loop thruough all other costs associated to deals within a given month 
then apply the cost to the dean (posting engine records reflecting the cost amounts), 
or sale) and invoke the price procedures. 

Inputs: 

GasMonthx - Gas Month to price), 

WhichPricex - 0=Nominations, ^Actualizations 

EntityCIDx - owning entity company identifier 

DBCRx - 0=Purchases, 1=Sales (deals) 

IncludelnWaspx = " for all or specific pool (ie. 'Common', etc.). 

History: 

10/20/99 JAMIE Initial creation. 

03/26/00 JAMIE Modified to allow for zero volume deals to have other (fixed) costs 
assigned to them. 

05/24/2000 JAMIE Modified to make sure that the calculation was within a specific 
entity. 

10/03/2000 JAMIE Modified to accept two additional parameters to dictate which 
pool and whether or not purchases or sales were to be calculated upon... 



7 

r 



* Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE @zMessage VARCHAR(254) 
DECLARE @zTotalVolume DEC!MAL(19,2) 
DECLARE @zMeterVolume DECIMAL(19,2) 
DECLARE ©zVolumeStatus INTEGER 
DECLARE ©zPriceStatus INTEGER 
DECLARE @zlncludelnWasp VARCHAR(10) 

DECLARE @yPCID INTEGER 

DECLARE @yPKG INTEGER . 

DECLARE @ySTID INTEGER 

DECLARE @yCostLevel VARCHAR(12) 

DECLARE @yCostMID INTEGER 

DECLARE @yCostBasisVARCHAR(40) * 

DECLARE @yCostRateOrAmount DECIMAL(19,4) 

DECLARE @wTID INTEGER 
DECLARE @wNom DECIMAL(19,2) 
DECLARE ©wPipelineActuals DECIMAL(19,2) 
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DECLARE @wGaslnv_MID INTEGER 

DECLARE @eETID INTEGER 
DECLARE ©eVoIume DECIMAL(19,2) 
DECLARE @ePriceOrRateNom DECIMAL(19,6) 
DECLARE @eVolumeActDECIMAL(19,2) 
DECLARE ©ePriceOrRateAct DECIMAL(19 t 6) 
DECLARE ©evolumestatus INTEGER 
DECLARE @epricestatus INTEGER 
DECLARE @ePKG INTEGER 

DECLARE PackageCostsCursor CURSOR LOCAL STATIC FORWARD ONLY FOR 
SELECT 

PackageCosts.PCID, 

PackageCosts.PKG, 

PackageCosts.STID, 

PackageCosts.Coslevel, 

PackageCosts.CostMID, 

PackageCosts.CostBasis, 

PackageCosts.CostRateOrAmount 

FROM 

PackageCosts 

WHERE 

PackageCosts.PKG-ANY(SELECT PKG FROM Package* WHERE 
PackageGasMonth=@GasMonthx AND 

K.KID=Package.KID AND 

K.EntityCID=@EntityCIDx AND Package.PackageDBCR=@DBCRx) 
ORDER BY 

PackageCosts.PKG, 
PackageCosts.STID 

DECLARE EngineCursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

engine.etid, 
engine.volume, 
engine.priceorTatenom, 
engine.volumeact 
engine. priceorrateact, 
engine.volumestatus, 
engine, pricestatus, 
package.pkg 

FROM 

engine, 
gastnv, 
package, 
k 

WHERE 

package. pkg=gasinv.pkg AND 
k.kid=package.kid AND 
k.entitycid=@entitycidx AND 
gasinv.gasmonth=@GasMonthx AND 
engine.tid=gasinv.tid AND 
gasinv.pricetype=1 AND 
gasinv.dbcr=@DBCRx 

r 



* Loop through each other package cost 

* involved with this calculation. 



*/ 

SELECT ©zMessage = 'PSPriceCostAII Running To Calculate Other Costs for all Deals' 

EXECUTE usp_Message ©zMessage 

OPEN PackageCostsCursor 

FETCH NEXT FROM PackageCostsCursor INTO 

©yPCID.QyPKG.QySTID.QyCostLevel.QyCostMID.QyCostBasis.gyCostRateOrAmount 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

r 
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* Sum the appropriate volumes for this 

* deal depending on whether nominations are 

* being calculated OR pipeline actuals are 

* begin calculated. 



7 

SELECT @zMessage = 'PSPriceCostAII Calculating Costs for Deal...' + CAST(@yPKG AS 

VARCHAR(10)) 

EXECUTE usp.Message @zMessage 

EXECUTE uspJGetWasplndicator @yPKG,@zlncludelnWasp OUTPUT 
IF (@lncludelnWaspx=") OR (@lncludelnWaspx=@zlncludelnWasp) 
BEGIN 

IF @WhichPricex=0 
BEGIN 

SELECT @zTotalVolume=ISNULL((SELECT 
SUM(Nom) FROM Gaslnv WHERE Gaslnv.PKG=@yPKG AND Gaslnv.PriceType=1),0) 

END 

IF @WhichPricex=1 
BEGIN 

SELECT @zTotalVolume=ISNULL((SELECT 
SUM(PipelineActuals) FROM Gaslnv WHERE Gaslnv.PKG=@yPKG AND Gaslnv.PriceType=1) ( 0) 

END 

r 



* Open a cursor on all meters associated 

* with this deal. 



V 

DECLARE GaslnvCursor CURSOR LOCAL STATIC 

FORWARD ONLY FOR 

SELECT 

Gaslnv.TID, 

Gaslnv.Nom, 

Gaslnv. PipelineActuals, 

Gaslnv.Gaslnv_MID 

FROM 

Gaslnv 

WHERE 

Gaslnv.PKG=@yPKG AND 
Gaslnv.PriceType=1 

OPEN GaslnvCursor 
FETCH NEXT FROM GaslnvCursor INTO 
@wTID ( @wNom,@wPipelineActuals,@wGaslnv_MID 

WHILE @@FETCH.STATUS = 0 
BEGIN 

r 



* Depending on which pricing routine is 

* run, set the appropriate meter volume 
•field. 



7 

IF @WhichPricex=0 



@zMeterVolume=@wNom 

IF @WhichPricex=1 



@zMeterVolume=@wPipelineActuals 

r 



* Invoke the detail cost routine in order 

* to calculate and post the cost totals 

* to the Engine Database. 



7 



BEGIN 
SELECT 

END 

BEGIN 
SELECT 

END 
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IF (@yCostLevel='DEAL') OR (@yCostLevel- METER 1 

AND @yCostMID=@wGaslnv_MID) 

BEGIN 

EXECUTE usp.PSPriceCost 

5 ©GasMonthx.QWhichPricex.igyPKG.QySTID.gyPCID, 

@wTID,@yCoslevel,@yCostBasis,@yCostRateOrAmount ( 

@zTotalVolume ( @zMeterVolume 
10 END 

FETCH NEXT FROM GaslnvCursor INTO 

@wTID,@wNom,@wPipelineActuals,@wGaslnv_MID 

END 

CLOSE GaslnvCursor 

1 5 DEALLOCATE GaslnvCursor 

END 

COMMIT WORK 

FETCH NEXT FROM PackageCostsCursor INTO 
(gyPCID.gyPKG^ySTID.QyCostLevel.QyCostMID.igyCostBasis.igyCostRateOrAmount 
20 END 

CLOSE PackageCostsCursor 
DEALLOCATE PackageCostsCursor 

r 

25 * Loop through and set the status flags 

* on the engine record IF the price or 

* volumes or amounts are different 

* between noms and actuals. Make 

* sure the logic exists to only calculate 
30 * those deals (purchases or sales) 

* within the correct WASP pool. 



7 

IF @WhichPricex=1 
35 BEGIN 

Indicators...' 



SELECT @zMessage = 'PSPriceCostAII Running To Set Price & Volume Variance Status 



EXECUTE uspjvlessage @zMessage 
OPEN EngineCursor 
40 FETCH NEXT FROM EngineCursor INTO 

@eETID,@eVolume,@ePric«OrRateNom,@eVolumeA 

WHILE @@FETCH.STATUS = 0 
BEGIN 

EXECUTE usp fGetWasplndicator@ePKG P @zlncludelnWasp 

45 OUTPUT 

IF (@lncludelnWaspx= n ) OR (@lncludelnWaspx=@z!ncludelnWasp) 
BEGIN 



50 * Check prices and volumes here. 



7 

SELECT @zVolumeStatus=0 
SELECT @zPriceStatus=0 
55 IF @eVolume<>@eVolumeAct 

BEGIN 

SELECT @zVolumeStatus=1 
END 

IF @ePriceOrRateNom<>@ePriceOrRateAct 
60 BEGIN 

SELECT @zPriceStatus=1 
END 

IF (@zVolumeStatus<>@eVolumeStatus) OR 

(@zPriceStatus<>@ePriceStatus) 
65 * BEGIN 

UPDATE 

engine 
SET 

70 volumestatus=@zVolumeStatus, 
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pricestatus=@zPriceStatus 



WHERE 



ETID=@eETID 

END 

END 

FETCH NEXT FROM EngineCursor INTO 
@e£TID,@eVoIume,@ePri<£OrRateNom,@eVolum 

END 

CLOSE EngineCursor 
DEALLOCATE EngineCursor 

END 

END 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI.NULLS ON 
GO 



SET QUOTED JDENTIFIER OFF SET ANSLNULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceCreateActualEntries( 

©GasMonthx DATETIME 
) 

AS 

BEGIN 

SET NOCOUNT ON 

r 

Name: usp.PSPriceCreateActualEntries 

Description: This routine will clear out any existing links and pricing enties 
that may have already been setup for pipeline actuals. It will then copy the 
nomination pricing and linking entries for pipeline actuals (within the given 
month). This process should only get invoked with the status of a given month 
within the gas control system goes from 'Sales' to 'Invoiced' at that point in time 
the accounting group will be responsible for any further modifications. 

Inputs: 

GasMonthx (Gas Month to calculate), 
History: 

08/04/1999 JAMIE Original creation 

08/25/2000 JAMIE Modified to remove the PackageLinks delete and build 
logic (replaced by new routing structures). 



V 

* Declare all variables and cursors 

* that are needed by this process. 

7 

DECLARE ©zMessage VARCHAR(254) 
DECLARE @yPKG INTEGER 
DECLARE @yETID INTEGER 
DECLARE @yEM_ETID INTEGER 

r 



* Clear out the link and price entry 
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* structures for the specified month 

* here,.. These entries will be 

* recreated (from Norn side) in the 

* next step. 
* 

* Database triggers take care of the 

* individual pricing components in 

* the Engine.MasterPrice table. 



V 

SELECT @zMessage = 'PSPriceCreateActualEntries, removing Engine.MasterPrice...' 
EXECUTE usp.Message (gzMessage 

DECLARE Engine_MasterDeleteCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 
SELECT 

DISTINCT 

(Engine_Master.ETID) 
FROM 

Engine_Master, 
Gaslnv, 

Engine.MasterPrice 

WHERE 

Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.PriceType=1 AND 
Gaslnv.PKG=Engine_Master.PID AND 
Engine_MasterPrice.ETID=Engine_Master£TIDAND 
Engine JrfasterPrice.NomOrActual=1 

OPEN EngineJ/lasterOeleteCursor 

FETCH NEXT FROM Engine.MasterOeleteCursor INTO @yEM ETID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

SELECT @zMessage = 'PSPriceCreateActualEntries, actual Engine J/lasterPrice removed...' 

EXECUTE usp.Message @zMessage 

DELETE 

FROM 

Engine.MasterPrice 

WHERE 

ETID=@yEM_ETID AND 
NomOrActual=1 

COMMIT WORK 

FETCH NEXT FROM Engine MasterOeleteCursor INTO @yEM_ETID 

END 

CLOSE Engine.MasterOeleteCursor 
DEALLOCATE Engine.MasterOeleteCursor 

r 



* Now bulk populate the engine 

* pricing information. Taking nom 

* pricing entries and creating actual 

* pricing entries. 



*/ 

SELECT @zMessage = 'PSPriceCreateActualEntries, running Gaslnv cursor...' 
EXECUTE usp.Message @zMessage 

DECLARE GaslnvCursor CURSOR LOCAL STATIC FORWARD ONLY FOR 
SELECT 

DISTINCT 

(Gaslnv.PKG) 

FROM 

Gaslnv 

WHERE 

Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.PriceType=1 

OPEN GaslnvCursor 

FETCH NEXT FROM GaslnvCursor INTO @yPKG 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

SELECT @zMessage = 'PSPriceCreateActualEntries, obtaining price entries for Gaslnv 

Package.,.' 
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EXECUTE usp.Message @zMessage 

DECLARE Engine.MasterCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

DISTINCT 

(ETID) 

FROM 

Engine_Master 

WHERE 

PID=@yPKG 

OPEN Engine JvlasterCursor 

FETCH NEXT FROM Engine MasterCursor INTO @yETID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

SELECT ©zMessage = 'PSPriceCreateActualEntries, inserting actual 

prices...' 

EXECUTE usp Message ©zMessage 
INSERT 

INTO 

Engine_MasterPrice 

(ETID.PriceTag.OperandVariablePriceVariable.CreateUser, 



CreateDate.LastUpdateUser.LastUpdateDate.SequenceNo.NomOrActual) 

(SELECT 

ETIDPriceTag,OperandVariable,PriceVariable ( CreateUser,CreateDate t LastUpdateUser t LastUpdateDate, 

SequenceNo.1 FROM Engine_MasterPrice 

WHERE ETID=@yETID AND NomOrActual=0) 

FETCH NEXT FROM Engine.MasterCursor INTO @yETID 

END 

CLOSE Engine.MasterCursor 
DEALLOCATE Engine.MasterCursor 
COMMIT WORK 

FETCH NEXT FROM GaslnvCursor INTO @yPKG 

END 

CLOSE GaslnvCursor 
DEALLOCATE GaslnvCursor 
END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTED IDENTIFIER OFF SET ANSI.NULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceMarkActualAdjustments( 

©GasMonthx DATETIME 
) 

AS 

BEGIN 

SETNOCOUNTON 

r 



Name: usp_PSPriceMarkActualAdjustments 

Description: This routine will go through each inventory (and engine 
records) in order to identify and mark those records that had some sort of 
an actualization adjustment (price or volume). The invoice number for sales 
will get reset to a 'A' (last character) if it currently exists as an 'N l . 

Inputs: 

GasMonthx (Gas Month to calculate), 
History: 
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1 2/1 5/1 999 JAMIE Original creation 



r 



* Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE ©zMessage VARCHAR{254) 

DECLARE @yAcctgldentifier VARCHAR(12) 
DECLARE ©zAcctgldentifier VARCHAR(12) 
DECLARE @zLastChar VARCHAR(1) 
DECLARE @zlnvoiceLength INTEGER 

DECLARE @qTID INTEGER 

r 



* First set the modified by actuals flag 

* across the board for all gasinventory 

* items that have a price type of T 

* (this includes 'Other Costs'. 

* The defaults is set to 'N* then go 

* and override with changes. 



V 

SELECT @zMessage = **** STARTED PSPriceMarkActualAdjustments' 
EXECUTE uspjvtessage @zMessage 

DECLARE GasTnvl Cursor CURSOR LOCAL STATIC FORWARD_ONLY FOR 
SELECT 

TID 
FROM 

Gaslnv 

WHERE 

GasMonth=@GasMonthx AND 
PriceType = 1 

OPEN GaslnvlCursor 

FETCH NEXT FROM GaslnvlCursor INTO @qT!D 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 
UPDATE 

Gaslnv 
SET 

ModifiedByActuaIs= , N' 

WHERE 

TID = @qTID 

COMMIT WORK 

FETCH NEXT FROM GaslnvlCursor INTO @qTID 

END 

CLOSE GaslnvlCursor 
DEALLOCATE GaslnvlCursor 

r 



* At this point all of the gas inventory 

* items that have had some sort of 

* modification done on them between 

* noms and actuals will have been 

* updated to a T. Now go and reset 

* the accounting identifier for each of 

* these records. 



•/ 

SELECT @zMessage = 'PSPriceMarkActualAdjustments, make any modifications' 
EXECUTE uspjvtessage @zMessage 

DECLARE GasInv2Cursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
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SELECT 

DISTINCT 
(G.Acctg Identifier) 
FROM 

Gaslnv AS G, 
Engine AS E 

WHERE 

GasMonth=@GasMonthx AND 
G.PriceType=1 AND 
E.TID=G.TID AND 

(E.PriceStatus<>0 OR E.VolumeStatus<>0) 

OPEN Gaslnv2Cursor 

FETCH NEXT FROM Gasinv2Cursor INTO ©yAcctgldentifier 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 
r 

* Make sure that it is a valid 6 digit 

* invoice number AND the sixth digit 

* contains an 'N' (for noms), 

* Update ail if this criteria has been 
'met 



•/ 

SELECT @z!nvoiceLength=LEN(RTRIM(LTRIM(@yAcctgldentifier))) 
IF @zlnvoiceLength=6 
BEGIN 

SELECT @zAcctg ldentifier=RTR I M(LTRI M(@yAcctg Identifier)) 
SELECT @zLastChar=RIGHT(@zAcctgldentifier,1) 
IF @zLastChar='N' 
BEGIN 

SELECT ©zAcctgldentifiepLEFTfgzAcctgldentifier.Sl+'A' 
UPDATE 

Gaslnv 
SET 

ModifiedByActuals=T, 

AcctgldentifieF@zAcctgldentifier 

WHERE 

GasMonth=@GasMonthx AND 
Acctg ldentifier=@yAcctg Identifier 

END 

END 

COMMIT WORK 

FETCH NEXT FROM Gaslnv2Cursor INTO ©yAcctgldentifier 

END 

CLOSE Gaslnv2Cursor 
DEALLOCATE Gaslnv2Cursor 

SELECT ©zMessage = **** FINISHED PSPriceMarkActualAdjustments' 

EXECUTE uspjvlessage @zMessage 

END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

CREATE PROCEDURE usp_PSPricePopulateEngine{ 

@PIDx INTEGER, 
@WhichPricex INTEGER, 
©GasMonthx DATETIME, 
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AS 

BEGIN 

r 



) 



Name: usp.PSPricePopulateEngine 

Description: Make sure that the price entries are populated on the engine 
master for the respective Engine_Master pricing records. Only those 
engine records with pricetype=1 (STID=8 or STID=9) will be manipulated by 
this process. 

Inputs: 

PIDx (unique Package ID) 
WhichPricex(0=Nomination, 1=Actual) 
GasMonthx (gas month calculation applicable toward) 
DBCRx (0=Purchase t 1=Sale) 

History: 

05/14/99 JAMIE Original Creation 

09/27/99 JAMIE Modify this process to check for index baskets AND IF the 
index basket is comprised of daily indices then populate the entire month 
with the basket information. 

01/27/00 JAMIE Modified to delete engine records while in the actuals phase 
if the nom information is zero (all nom information, price, volume, amount etc.). 



7 



* Declare all variables and cursors 

* that are needed by this process. 



V 

DECLARE ©dPriceEntryType VARCHAR(12) 
DECLARE ©dPriceVariable VARCHAR(15) 
DECLARE ©tmpDaitylndexCount INTEGER 
DECLARE @tmpUseEffective DATETIME 
DECLARE @tmpEndDate DATETIME 
DECLARE @tmpPrevEffective DATETIME 
DECLARE ©tmpNextEffectiveDate DATETIME 
DECLARE ©tmpNumberOays DATETIME 
DECLARE ©tmpVolumelnPeriod DECIMAL(19 ( 2) 
DECLARE ©tmpDateToUse DATETIME 
DECLARE ©tmpEndEffectiveDate DATETIME 
DECLARE @yETiD INTEGER 
DECLARE ©yEffective DATETIME 
DECLARE @ySTID INTEGER 
DECLARE ©yVoILeve! INTEGER 
DECLARE ©yVoIGroup INTEGER 
DECLARE @yVarf ixed INTEGER 
DECLARE ©yMMBtuMCF INTEGER 
DECLARE ©yTierThreshold INTEGER 

DECLARE @yTID INTEGER 

r 



* First Go out and delete entries off the 

4 engine database related to this particular 

* package. If the pipeline actuals are 

* being processed then just go and 

* initialize any existing Engine record 

* 'Actual' buckets to zero (leave the 

* preexisting engine records intact). 
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* Modified on 01/27/2000 to delete engine 

* records off actuals IF there are no nom 

* numbers stored on the records... 



IF @WhichPricex=0 
BEGIN 



DELETE 



FROM 
WHERE 

PriceType=1 AND DBCR=@DBCRx) 
END 

IF@WhichPricex=1 
BEGIN 

DELETE 

FROM 
WHERE 

PriceType=1 AND DBCR=@DBCRx) AND 



Engine 

TID=ANY(SELECT TID FROM Gaslnv WHERE PKG=@PIDx AND 



UPDATE 



Engine 
SET 



WHERE 



Engine 

TID=ANY(SELECT TID FROM Gaslnv WHERE PKG=@P!Dx AND 

PriceOrRateNom=0 AND 
Volume=0 AND 
Amount=0 



PriceOrRateAct=0, 

VolumeAct=0, 

AmountAct=0 

TID=ANY(SELECT TID FROM Gaslnv WHERE PKG=@PIDx AND 



PriceType=1 AND DBCR=@DBCRx) 
END 

r 

* First, do a loop on all of the 

* Engine_Master records in order to 

* remove any that don't have any price 

* records associated to it.. (Orphans).. 

* A commit point is placed here in order to 

* insure that subsequent cursor activity 

* only picks up valid price records. 

7 

DECLARE Engine_MasterCursor1 CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

em.ETID, 

em. Effective, 

em.STID, 

em.VolLevel, 

em.VolGroup, 

em.VarFixed, 

em.MMBtuMCF, 

em.TierThreshold 

FROM 

EngineJvlasterAS em 

WHERE 

(em.PID=@PIDx) 

ORDER BY 

em.Effective 

OPEN Engine_MasterCursor1 

FETCH NEXT FROM Engine.MasterCursoM INTO 

@yETID,@yEffective,@ySTID,@yVolLevei t @yVolGroup,@yVarFixed ( @yMMBtuMCF,@yTierThreshold 
WHILE @@FETCH_STATUS = 0 
BEGIN 

IF ISNULL((SELECT count(*) FROM Engine.MasterPrice WHERE ETID=@yETID),0) < 1 
BEGIN 

DELETE 
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FROM 

Engine_Master 

WHERE 

ETID=@yETID 

END 

FETCH NEXT FROM Engine_MasterCursor1 INTO 
QyETID.gyEffective.gySTiD.QyVolLevel.OyVolGroup.gyVarFixed.gyMMBtuMCF.gyTierThreshold 
END 

CLOSE Engine_MasterCursor1 
DEALLOCATE Engine JvlasterCursorl 

r 

* Now loop through the existing 

* Engine.Master records. These are the 

* actual price entries that were input 

* by the user. There can be a record 

* PER DAY or a single record for the 

* entire month. Only 1 entry PER 

* Effective date will be stored within 

* the Engine table. That is why the 

* tmpPrevEffective is used within the 

* cursor process. 

7 

SELECT @tmpPrevEffective='0 1-01-1 900' 

DECLARE Engine_MasterCursor2 CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

em.ETID, 

em.Effective, 

em.STID, 

em.VolLevel, 

em.VolGroup, 

em.VarFixed, 

em.MMBtuMCF, 

em.TierThreshold 

FROM 

Engine.Master AS em 

WHERE 

(em.PID=@PIDx) 

ORDER BY 

em.Effective 

OPEN Engine_MasterCursor2 

FETCH NEXT FROM Engine_MasterCursor2 INTO 

©yETID.QyEffective.QySTID.QyVolLevel.QyVolGroup.igyVarFixed.lgyMMBtuMCF.gyTierThreshold 
WHILE @@FETCH_STATUS = 0 
BEGIN 

I* 



Check for daily index entries... If they 
are found then go and calculate the 
end date for which to insert engine 
records (automating a daily price 
entry to the engine for each day of 
the month up thru the end of the month 
or to the next effective date. 

This will also check for index basket 
monthly entries. If the index basket 
contains daily indices then populate 
each day of the month just as if it 
was a. daily index. 



IF @yEffective<>@tmpPrevEffective 
BEGIN 

EXECUTE usp.fLastDay @GasMonthx,@tmpEndDate OUTPUT 

SELECT @tmpDaiiylndexCount=0 

DECLARE DailyCheckCursor CURSOR LOCAL STATIC 

FORWARD.ONLY FOR 

SELECT 
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p.PriceEntryType, 
emp.PriceVariable 
FROM 

EngineJvlasterPrice AS emp, 
PriceComponents AS p 

WHERE 

(emp.ETID=@yETID) AND 

(emp.NomOrActual=@WhichPricex) AND 

(p.PriceTag=emp.PriceTag) AND 
(p.PriceEntryType='Daiiy IDX' OR 

p.PriceEntryType- Basket IDX') 

OPEN DailyCheckCursor 
FETCH NEXT FROM DailyCheckCursor INTO @dPriceEntryType t @dPrice Variable 
WHILE @@FETCH STATUS = 0 
BEGIN 

IF (@dPriceEntryType- Daily IDX') AND 

(@tmpDailylndexCount=0) 

BEGIN 

SELECT @tmpDailylndexCount=1 
END 

IF (@dPriceEntryType='Basket IDX') AND 

«5>tmpDaily!ndexCount=0) 

BEGIN 

SELECT @tmpDailylndexCount = 

ISNULL((SELECT countf) FROM IndexBasketUnkJndexRef 

WHERE (lndexBasketLink.lndexBasketlD=@dPriceVariable) AND 

(lndexRef.lndexlD=lndexBasketLink.lndexlD) AND 

(lndexRef.Dailylndex=1)),0) 
END 

FETCH NEXT FROM DailyCheckCursor INTO 

@dPriceEntryType,@dPriceVariable 

END 

CLOSE DailyCheckCursor 
DEALLOCATE DailyCheckCursor 
IF @tmpDailylndexCount=0 
BEGIN 

SELECT @tmpEndEffectiveDate=@yEffective 

END 

ELSE 

BEGIN 

SELECT 

@tmpEndEffectiveDate==ISNULL((SELECT DATEADD(day r 1,MIN(em.effective)) FROM Engine.Master AS em 

WHERE (em.PID=@PIDx) AND (em.Effective>@yEffective)),@tmpEndDate) 

END 

r 



* Now insert the new Engine records. 

* These inserts will be based on a loop 

* between the effective date from the 

* Enginejvlaster record and the temp 

* field tmpEndEffectiveDate. This will 

* provide for the 'proliferation' of 

* daily index price entries (to the 

* engine). Only insert engine records 

* if there is some sort of volume 

* Norn or PipelineActual on associated 

* with a specific day. 
* 

* If pipeline actuals then inserts do 

* not automatically happen. A check 

* is first made to see if the engine 

* record is already there... 

7 

SELECT @tmpUseEffective=@yEffective 
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LOCAL STATIC FORWARD.ONLY FOR 



WHILE (gtmpUseEffective <= @tmpEndEffectiveDate 
BEGIN 

DECLARE GaslnventoryCursor CURSOR 



SELECT 



DISTINCT 

g.TID 

FROM 



ASg, 
ASgd 

(gd.TID=g.TID) AND 
(g.PID=@PIDx)AND 
(g.GasMonth=@GasMonthx) AND 
(g.PriceType=1) AND 
(g.DBCR=@DBCRx) AND 
(gd.GasDay>=@tmpUseEffective) AND 
((gd.Nom<>0) or(gd.PipelineActuals<>0)) 



Gaslnv 
GasinvD 



WHERE 



Engine WHERE TID=@yTID AND STID=@ySTID AND 

Effective=@tmpUseEffective AND VolLevel=0)=0 



OPEN GaslnventoryCursor 

FETCH NEXT FROM GaslnventoryCursor INTO @yTID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

IF (SELECT countO FROM 



BEGIN 



INSERT 



INTO 



VALUES 



Engine 

(TID P STID,Effective f VolLevel,VolGroup,MMBtuMCF ( EM_ETlD) 



(@yTID,@ySTID,@tmpUseEffective,0 ( @yVolGroup f @yMMBtuMCF,@yETID) 

END 

ELSE 

BEGIN 



UPDATE 



Engine 
SET 

WHERE 



EM_ETID=@yETID 

TID=@yTID AND 
STID=@ySTID AND 
Effective=@tmpUseEffective AND 
VolLevel=0 



END 
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FETCH NEXT FROM 

GaslnventoryCursor INTO @yTID 

END 

CLOSE GaslnventoryCursor 
DEALLOCATE GaslnventoryCursor 

SELECT 

@tmpUseEffective=DATEADD(day, 1 ,@tmpUseEffective) 

END 

END 

SELECT @tmpPrevEffective=@yEffective 
FETCH NEXT FROM Engine_MasterCursor2 INTO 
©yETID.gyEffective.QySTID.QyVoILevel.QyVolGroup.QyVarFixed.QyMMBtuMCF.igyTierThreshold 
END 

CLOSE Engine_MasterCursor2 
DEALLOCATE Engine_MasterCursor2 
END 



GO 

SET QUOTEDJDENTIFIER OFF SETANSLNULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceTransportAII( 

©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
@PKGx INTEGER, 
@EntityCIDxVARCHAR(12) 
) 

AS 

BEGIN 

r 



Name: usp_PSPriceTransportAII 

Description: This is the main process for calculating the transport costs 
for all transport entries within the gas inventory database. These are 
identified in the gas inventory database as PriceType=3 purchase and sale 
entries (DBCR=0 or 1). 

The recalculation of costs will only be allowed to occur when the gas month 
status has been set to the appropriate month 

Inputs: 

GasMonthx - Gas Month to calculate 
WhichPricex - 0=Nominations, ^Actualizations 
PKGx - either 0 for all or a specific package (deal) number 
EntityCIDx - owning company id 

History: 

06/30/1999 JAMIE Orignal Creation. 

03/22/2000 JAMIE Modified to move the Divie process to the main module. In addition, 
modified to handle the new routing table (Leg Detail) and build routing records 
based on the routing rules within this table. 

05/24/2000 JAMIE Modified to be aware of entity and product types and services. In 
addition, modifications made to calculate based on new routing structure... 



7 

r 
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* Declare all variables and cursors 

* that are needed by this process. 



5 7 

DECLARE ©zMessage VARCHAR(254) 
DECLARE @zPackage INTEGER 
DECLARE @zRecTID INTEGER 
DECLARE ©zDelTID INTEGER 
1 0 DECLARE ©zVolume DECIMAL(19,2) 

DECLARE @zAmountDECIMAL(19,2) 
DECLARE ©zRate DECIMAL(19,8) 
DECLARE ©zLastDay DATETIME 

1 5 DECLARE @yTID INTEGER 

DECLARE ©yGasDay DATETIME 

DECLARE QyDelMID INTEGER 

DECLARE @yRecMID INTEGER 
20 DECLARE @yLID INTEGER 

DECLARE @yReceipt DECIMAL(19,2) 

DECLARE QyFuelOrOther DECIMAL(19,2) 

DECLARE QyDelivered DECIMAL(19,2) 

DECLARE @yTransportationRate DECIMAL(19,8) 
25 DECLARE @yGatheringRate DECIMAL(19 t 8) 

DECLARE @yFuelPercent DECIMAL(19,8) 

DECLARE ©yPlantVolReduction DECIMAL) 19,8) 
~~ DECLARE @yKID INTEGER 

*f DECLARE ©yRMeterPipe VARCHAR(12) 

S 30 DECLARE QyRMeterMeter VARCHAR(14) 

m DECLARE @yDMeterPipe VARCHAR(12) 

. £ DECLARE @yDMeterMeter VARCHAR(14) 

DECLARE @yCID VARCHAR(12) 
Ul DECLARE @yKProductlD INTEGER 

fj 35 DECLARE ©yKServicelD INTEGER 

Q DECLARE @yPurchasePKG INTEGER 

r*~ J* 

3 

3 * Firstintialize any existing volumes for 

40 * this month on the gas inventory table 

*™ * to a zero. In addition, set the 

01 * appropriate volume amounts and price 

fy * amounts on the 'Engine' table to zeros. 

W 45 v 

□ EXECUTE uspJLastDay @GasMonthx,@zLastDay OUTPUT 

SELECT @zMessage = 'PSPriceTranportAII, Initializing Gas Inventory and Engine Information.. 
EXECUTE uspjvlessage @zMessage 

DECLARE GaslnvCursor CURSOR LOCAL STATIC FORWARDJ3NLY FOR 
50 SELECT 

Gaslnv.TID 
FROM 

Gaslnv, 
K 

Gaslnv.GasMonth=@GasMonthx AND 
Gaslnv.PriceType=3 AND 
K.KID=Gaslnv.KID AND 
K.EntityCID=@EntityCIDx 

60 OPEN GaslnvCursor 

FETCH NEXT FROM GaslnvCursor INTO @yTID 
BEGIN TRANSACTION 
WHILE @@FETCH_STATUS = 0 
BEGIN 

65 IF @WhichPricex=0 

BEGIN 

UPDATE 

GaslnvD 
SET 

70 Nom=0, 



55 WHERE 
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EstAct=0 

WHERE 

TID=@yTID AND 

GasDay BETWEEN @GasMonthx AND 

©zLastDay 

UPDATE 

Engine 
SET 

Volume=0, 
Amount=0, 
PriceOrRateNom=0 

WHERE 

TID=@yTID 

END 

IF @WhichPricex=1 
BEGIN 

UPDATE 

GaslnvD 
SET 

PipelineActuals=0 

WHERE 

TID=@yTID AND 

GasDay BETWEEN ©GasMonthx AND 

@zLastDay 

UPDATE 

Engine 
SET 

VolumeAct=0, 
AmountAct=0, 
PriceOrRateAct=0 

WHERE 

TID=@yTID 

END 

FETCH NEXT FROM GaslnvCursor INTO @yTID 

END 

SELECT @zMessage = 'PSPriceTranportAII, Finished initializing Gas Inventory and Engine Information....' 
EXECUTE usp Message @zMessage 
COMMIT WORK 
CLOSE GaslnvCursor 
DEALLOCATE GaslnvCursor 

r 



* Now loop through each of leg detail 

* records for the month for this entity 

* and determine appropriate transportation 

* rates. 
* 

* Gas Inventory (PriceType=3) records will 

* be created (along with package if needed). 
* 

* Engine records will also be created. 



•/ 

SELECT @zMessage = 'PSPriceTranportAII, Analyzing Routing (legdetaii) cursor....' 
EXECUTE usp.Message @zMessage 

DECLARE LegDetailCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

LD.GasDay, 

LD.DelMID, 

LD.RecMID, 

LD.LID.. 

LD.Receipt, 

LD.FuelOrOther, 

LD. Delivered, 

LD.TransportationRate, 

LD.GatheringRate, 

LD.FuelPercent, 

LD.PIantVolReduction, 

LD.PurchasePKG, 

RMeter.PipeField, 
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RMeter.Meter, 

DMeter.PipeFleld, 

DMeter.Meter, 

LegRef.KID 

FROM 



LegDetailAS LD, 
LegRef, 

Meter AS RMeter, 
Meter AS DMeter 



WHERE 



LegRef.LID=LD.LID AND 
RMeter.MID=LD.RecMlD AND 
DMeter.MID=LD.DelMID AND 

LD.PurchasePointTID IN (SELECT TID FROM Gaslnv.Package.K WHERE 
Package.PKG=Gaslnv.PKG AND K.KID = Package.KID AND 

Gaslnv.GasMonth=@GasMonthx 

and Gaslnv.DBCR=0 and Gaslnv.PriceType=1 and K.EntityCID=@EntityCIDx) AND 

LD.GasMonth=@GasMonthx AND 
LD.GasDay>=@GasMonthx AND 
LD.GasDay<=@zLastDay AND 
LD.NomOrActuals=@WhichPricex AND 
LD.LIDoO AND 

(LD.TransportationRateoO OR LD.GatheringRate<>0 OR LD.FuelPercent<>0 OR 

LD.PIantVolReduction<>0) 

ORDER BY 

LegRef.LID 

OPEN LegDetailCursor 

FETCH NEXT FROM LegDetailCursor INTO @yGasDay ( @yDelMID f @yRecMID,@yLID,@yReceipt@yFuelOrOther t 

@yDelivered,@yTranspon^tionRate t @yGatheringRate,@yFuelPercent@yPlantVolRedurtion ( @yPurchaseP 

KG, 

@yRMeterPipe,@yRMetenMeter,@yDMeterPipe,@yDMeterMeter ( @yKID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

r 



* First check to see if a transportation 

* package has been setup for this 

* contract/company.., If not, then set 

* it up... A commit is immediately 

* performed here in order to preserve' 

* the package information (and its 

* associated ID). 



7 

SELECT @yKProductlD=KProductlD,@yKServicelD=KServicelD FROM Package where 

PKG=@yPurchasePKG 

SELECT @yCID=CID FROM K WHERE KID = @yKID 

SELECT @zPackage=ISNULL((SELECT PKG FROM Package WHERE KlD=@yKID AND 
PackageGasMonth=@GasMonthx AND 

KProductlD=@yKProductlD AND 

KServicelD=@yKServicelD), M ) 

IF (@zPackage=") OR (@zPackage IS NULL) 
BEGIN 

SELECT @zPackage=(SELECT max(PKG) FROM package) + 1 
INSERT 

INTO 

Package 

(PKG.StartDate.EndDate.Description.Package.Create.KID.CIDPackageGasMonth.PackageStatus.Package 

.CreateBy, 

LastUpdateBy.LastUpdateDate.KProductlD.KServicelD) 

VALUES 

(@zPackage,@GasMonthx,@zLastDay/TRANSPORT 
DEAL'.getdateO.gyKID.gyCID.QGasMonthx/Created'.user.nameO, 
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55 



65 



user_name(),getdate(),@yKProductlD,@yKServicelD) 
END 

r 



* At this point we know that a package 

* has been created AND we have the 

* package identifier. Now build the 

* Gastnv records IF they do not already 
10 * exist for this package. By adding a 

* new inventory item the daily (GasInvD) 

* records are automatically created for 
*each day of the month. 

15 v 

SELECT @zRecTID=ISNULL((SELECT TID FROM Gaslnv WHERE GasMonth=@GasMonthx 

AND 

PKG=@zPackage AND PriceType=3 AND 

KID=@yKID AND PipeField=@yRMeterPipe AND 
20 Meter=@yRMeterMeter AND PID=@yLID 

AND DBCR=0),0) 

IF @zRecTID=0 

BEGIN 

INSERT 

25 INTO 

Gaslnv 

y (GasMonth.CID.PipeField.Meter.DBCR.KID.PID.PKG.StatPriceType.Gaslnv.UT, 

o 

fi3 30 Nom.EstActGaslnvJJU.Gaslnv MID.PipelineActuals) 

VALUES 

IM (@GasMonthx,@yCID,@yRMeterPip^ 

fl 0,0\user nameO.QyRecMID.O) 

j~[ 35 SELECT @zRecTID=ISNULL((SELECT TID FROM Gaslnv WHERE 

f~~ GasMonth=@GasMonthx AND 

B PKG=@zPackage AND PriceType=3 AND KID=@yKID AND PipeField=@yRMeterPipe AND 

Q 40 Meter=@yRMeterMeter AND PID=@yLID AND DBCR=0),0) 

01 END 

jj? SELECT @zDelTID=ISNULL((SELECT TID FROM Gaslnv WHERE GasMonth=@GasMonthx 

AND PKG=@zPackage AND 

p 45 PriceType=3 AND KID=@yKID 

Ia AND PipeField=@yDMeterPipe AND Meter=@yDMeterMeter AND 

^ PID=@yLID AND DBCR=1),0) 

IF@zDemD=0 

BEGIN 

50 INSERT 

INTO 

Gaslnv 



(GasMonth ( ClD,PipeField ( Meter,DBCR,KID ( PID ( PKG,StatPriceType ) Gaslnv_UT t 

Nom,EstActGaslnv_UU,Gaslnv MID.PipelineActuals) 

VALUES 



((gGasMonthx.gyCID.gyDMeterPipe.QyDMeterMeter.l.QyKID.gyUD.QzPackage.l.S.getdateO, 
60 O,O,userjiame() ( @yDelMID,0) 

SELECT @zDelTID=ISNULL((SELECT TID FROM Gaslnv WHERE 
GasMonth=@GasMonthx AND PKG=@zPackage AND 



PriceType=3 AND KID=@yKID AND PipeField=@yDMeterPipe AND Meter=@yDMeterMeter AND 

PID=@yLIDANDDBCR=1),0) 
END 

r 



70 * At this point the gas package and gas 
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* inventory items have been determined 

* (created if needed). Now go and post 

* the volume to the GaslnvD table. 



•/ 



IF @WhichPricex=0 
BEGIN 



UPDATE 



UPDATE 



END 

IF @WhichPricex=1 
BEGIN 



UPDATE 



UPDATE 



GaslnvD 
SET 

WHERE 



GaslnvD 
SET 

WHERE 



GaslnvD 
SET 

WHERE 



GaslnvD 
SET 



PipelineActuals=(PipelineActuals+@yDelivered) 



WHERE 



nom=(nom+@yReceipt) 

TID=@zRecTID AND 
GasDay=@yGasDay 



nom=(nom-fr@yDelivered) 

TID=@zDelTID AND 
GasDay=@yGasDay 



PtpelineActuals=(PipelineActuals+@yReceipt) 

TID=@zRecTID AND 
GasDay=@yGasDay 



END 



TID=@zDeITID AND 
GasDay=@yGasDay 



* Any transport costs here??? 

* (engine transaction ID is 3) 



V 

IF @yTransportationRate<>0 
BEGIN 

SELECT @zRate=@yTransportationRate 
SELECT @zVolurne=@yReceipt 
SELECT @zAmount=ROUND((@zRate # @zVolume),2) 
IF ISNULL((SELECT countf) FROM Engine WHERE TID=@zRecTID 
AND Effective=@GasMonthx AND STID=3),0) < 1 

BEGIN 

IF @WhichPricex=0 

BEGIN 
INSERT 

INTO 

Engine 

(TID,Effecrtve t STID t VolLevel,VolGro^ 

VALUES 

(@zRecTID,@GasMonthx,3 l 0,@zPackageJ,getdate(),user_name(),@zVolume ( @zAmount@zRate) 

END 

IF @WhichPricex=1 

BEGIN 
INSERT 



m) 
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ateAct) 



INTO 

Engine 

(TID.Effective.STID.VolL^ 

VALUES 



(@zRecTID,@GasMonthx,3,0,@zPackage 1 1 ,getdate(),user name() I @zVolume,@zAmount,@zRate) 
10 END 

END 

ELSE 

BEGIN 

IF @WhichPricex=0 

1 5 BEGIN 

UPDATE 



Engine 
SET 



20 Volume=(Volume+@zVolume), 
Amount=(Amount-*@zAmount) 1 

PriceOrRateNom=ROUND(((Amount4@zAmount)/(Volume-HgzVolume)),4) 
25 WHERE 

TID=@zRecTID AND 

Q Effective=@GasMonthx AND 

30 



STID=3 



^ END 
yj IF @WhichPricex=1 

If* BEGIN 

35 UPDATE 
vJ Engine 

SET 



VolumeAct=(VolumeAct-*@zVolume), 
AmountAct=(AmountAct+@zAmount), 

PriceOrRateAct=ROUND(((AmountAct^zAmount)/(VolumeAct-^zVolume)),4) 



WHERE 



TID=@zRecTID AND 
Effective=@GasMonthx AND 
50 STID=3 



END 



END 



END 



* Any gathering costs here??? 

* (engine transaction ID is 4) 



7 

60 IF @yGatheringRate<>0 

BEGIN 

SELECT @zRate=@yGatheringRate 
SELECT @zVolume=@yReceipt 
SELECT @zAmount=ROUND((@zRate*@zVolume) t 2) 
65 * IF ISNULL((SELECT countH FROM Engine WHERE TID=@zRecTID 

AND Effecth/e=@GasMonthx AND STID=4),0) < 1 

BEGIN 

IF @WhichPricex=0 

BEGIN 

70 INSERT 
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INTO 

Engine 

(TID,Effectwe,ST1D,VolLe^^ 

VALUES 

(@zRecTID,@GasMonthxAO,@zPac^ 

END 

IF @WhichPricex=1 

BEGIN 
INSERT 

INTO 

Engine 

(TID^ffective.STID.VoILevel.VolGraup.MMBtuMCF.Engine.UT.Eng 

VALUES 

(@zRecTID p @GasMonthxAO,@zPac^ 

END 

END 

ELSE 

BEGIN 

IF @WhichPricex=0 

BEGIN 
UPDATE 

Engine 
SET 

Volume=(Volume+@zVolume), 
Amount=(Amount+@zAmount), 

PriceOrRateNom=ROUND(((Amount-^zAmount)/(Volume-^@zVolume)) ) 4) 

WHERE 

TID=@zRecTID AND 
Effective=@GasMonthx AND 
STID=4 

END 

IF @WhichPricex=1 
BEGIN 
UPDATE 

Engine 
SET 

VolumeAct=(VoIumeAct4@zVolume), 
AmountAct=(AmountAct-»@zAmount) t 

Pric»OrRateAct=ROUND(((AmountAct-^zAmount)/(VolumeAct+@zVolume)),4) 

WHERE 

TID=@zRecTID AND 
Effective=@GasMonthx AND 
STID=4 

END 

END 

END 

/* 



'Any fuel costs?? 

* (engine transaction ID is 5) 
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IF @yFuelPercent<>0 
BEGIN 
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AND Effective=@GasMonthx AND STID=5),0) < 1 



SELECT @zRate=@yFuelPercent 

SELECT @zVolume=@yReceipf@zRate 

IF ISNULL((SELECT countfl FROM Engine WHERE TID=@zRecTID 



BEGIN 

IF @WhichPricex=0 



BEGIN 
INSERT 



INTO 



m) 



ateAct) 



Engine 

(TID t Effective,STID,VolLevel,VolGroup,MMBtuM^ 

VALUES 

(©zRecTID.gGasMonthx.S.O.QzPackage.l.getdateO.useLnameO.gzVolume.O.QzRate) 

END 

IF @WhichPricex=1 

BEGIN 
INSERT 

INTO 

Engine 

(TID.Effective.STID.VolLevel.VolGroup^ 

VALUES 

(@zRecTID ) @GasMonthx,5 t 0,@zPackage,1,getdate() l user name(),@zVolume,0,@zRate) 

END 

END 

ELSE 

BEGIN 



IF @WhichPricex=0 



BEGIN 
UPDATE 



Engine 
SET 



Volume=(Volume-K§zVolume) 

TID=@zRecTID AND 
Effective=@GasMonthx AND 
STID=5 



WHERE 



END 

IF @WhichPricex=1 
BEGIN 
UPDATE 



Engine 
SET 



VolumeAct=(VolumeAct+@zVolume) 

TID=@zRecTID AND 
Effective=@GasMonthxAND ' 
STID=5 

END 



WHERE 



END 



END 
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*Any pvr?? 

* (engine transaction ID is 6) 



7 

IF @yPlantVolReduction<>0 
BEGIN 

SELECT @zRate=@yPlantVolReduction 
SELECT @zVolume=@yReceipt*@zRate 
IF ISNULL((SELECT county FROM Engine WHERE TID=@zRecTID 
AND Effective=@GasMonthx AND STID=6),0) < 1 

BEGIN 

IF @WhichPricex=0 

BEGIN 
INSERT 

INTO 

Engine 

(TID ( Effective ( STID,VolLevel,VolGro 

VALUES 

(©zRecTID.QGasMonthx.e.O.QzPackage.l.getdateO.user.nameO.gzVolume.O.QzRate) 

END 

IF @WhichPricex=1 

BEGIN 
INSERT 



m) 



INTO 



Engine 



ateAct) 



(TID.Effective.STID.VolLevel.VoiGroup.M^ 



VALUES 



(@zRecTID,@GasMonthx,6,0,@zPackage,1,getdate(),user name(),@zVolume,0,@zRate) 

END 



ELSE 



END 
BEGIN 

IF @WhichPricex=0 



BEGIN 
UPDATE 



Engine 
SET 



Volume=(Volume-K§zVolume) 

TID=@zRecTID AND 
Effective=@GasMonthx AND 
STID=6 



WHERE 



END 

IF @WhichPricex=1 
BEGIN 
UPDATE 



Engine 
SET 



VolumeAct=(VolumeAct+@zVolume) 

TID=@zRecTID AND 
Effective=@GasMonthx AND 



WHERE 
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STID=6 

END 

END 

END 

COMMIT WORK 

FETCH NEXT FROM LegDetailCursor INTO 
@yGasDay,@yDelMID,@yRecMID,@yLID,@yReceipt@yFuelOrOther t 

@yDelivered,@yTransportationRate,@yGato 

KG, 

@yRMeterPipe,@yRMeterMeter,@yDMeterPipe P @yDMeterMeter,@yKID 
END 

CLOSE LegDetailCursor 

DEALLOCATE LegDetailCursor 

SELECT @zMessage = 'PSPriceTranportAll, Finished....' 

EXECUTE usp.Message @zMessage 

END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceWASPCalc( 

©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
@EntityClDx VARCHAR(12) 
) 

AS 

BEGIN 
/* 



Name: usp_PSPriceWaspCalc 

Description: This is the main process for calculating the WASP price information for 
a particular gas month and type of price (nom's or pipeline actuals). The end result 
of this process is to post updated price amounts within the engine. The WASP calculation 
has also been modified to perform the calculations pooled by entity (passed to this 
routine), within entity by product (Oil/Gas/Liguids) and service (marketing/passthrough/etc.). 

Inputs: 

GasMonthx (Gas Month to calculate), 

WhichPricex (0=Nominations f ^Actualizations) 

EntityCIDx (which company is being calculated (owner company)) 

History: 

06/22/99 JAMIE Original creation 

07/22/99 JAMIE Include 3rd party deals within the 
calcualtion process. They WILL NOT BE included within the WASP calculations 
and will be treated the same as "Dedicated* (sanctioned sales) deals. This 
will ensure they are not affecting any other pricing component 

05/01/00 JAMIE Modifications to utilize the new routing structure as part of the 
calculation. A check is made to see if any 'routing' entries are made to the new 
structures (for the month). If so, then this routine will invoke the new routines. 
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Otherwise, the old routines are invoked. 



05/24/2000 JAMIE Modifications to add the EntityCIDx component to the calculation (passed 
to this routine by the calling program). In addition, modifications were made to calculate 
all WASP pricing within each unique product and service. 

08/25/2000 JAMIE Modified to remove all of the old routing routines. 



7 

r ^ UXXXX IXXIIXIX XXX XIXXX.,11 

* Declare all variables and cursors 

* that are needed by this process. 

V 

DECLARE @zMessage VARCHAR(254) 
DECLARE ©yKProductlD INTEGER 
DECLARE @yKProductName VARCHAR(50) 

DECLARE @yKServicelD INTEGER 
DECLARE @yKServiceName VARCHAR(50) 

DECLARE ProductTypesCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

ProcessingCodelD, 

ShortDescription 

FROM 

SEProcessingCodes WHERE CodeType^CONTRPRODS' 

ORDER BY 

ProcessingCodelD 

SELECT @zMessage = 'PSPriceWASPCalc, Running for Entity '+@EntityCIDx+'...' 
EXECUTE usp.Message @zMessage 

r 



* Outermost loop is on product type... 



7 

OPEN ProductTypesCursor 

FETCH NEXT FROM ProductTypesCursor INTO @yKProductlD,@yKProductName 
WHILE @@FETCH_STATUS = 0 
BEGIN 

SELECT @zMessage = 'PSPriceWASPCalc, Running for Product '-K§yKProductName+ , ... , 
EXECUTE uspjvlessage @zMessage 

r 



* Next loop is on service type... 



7 

DECLARE ServiceTypesCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

ProcessingCodelD, 

ShortDescription 

FROM 

SEProcessingCodes WHERE CodeType='CONTRSRVS' 

ORDER BY 

ProcessingCodelD 

OPEN ServiceTypesCursor 

FETCH NEXT FROM ServiceTypesCursor INTO @yKServicelD,@yKServiceName 
WHILE @@FETCH STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

SELECT @zMessage = 'PSPriceWASPCalc, Running for Service 

'+@yKServiceName+\./ 

EXECUTE usp_Message @zMessage 

r 



* Now populate the waspresolvedrouting 

* tables with all sales and transport 
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* totals that were linked to purchases 

* within the route process. 



7 

EXECUTE usp.PSPriceWASPCalcSalesN 
@GasMonthx,@WhichPricex,@EntityCIDx,@yKProductlD,@yKServicelD 

COMMIT WORK 

FETCH NEXT FROM ServiceTypesCursor INTO 

@yKServicelD,@yKServiceName 

END 

CLOSE ServiceTypesCursor 
DEALLOCATE ServiceTypesCursor 

FETCH NEXT FROM ProductTypesCursor INTO @yKProductlD,@yKProductName 

END 

CLOSE ProductTypesCursor 
DEALLOCATE ProductTypesCursor 

r 



* Finished. A later routine will take 

* the well prices to the actual engine 

* table (PSPriceAII for Purchases). A 

* commit takes place right here just to 

* make sure we limit our recovery window 

* if problems later. Also, don't want 

* to hold locks for an extended amount 

* of time. 



7 

SELECT @zMessage = 'PSPriceWASPCalc, Finished with Entity '-*@EntityCIDx+\..' 

EXECUTE usp Message @zMessage 

END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTED IDENTIFIER OFF SET ANSLNULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceWASPCalcResolveDriver( 

@GasMonthx DATETIME, 
©WhichPricex INTEGER, 
@EntityCIDxVARCHAR(12), 
©IncludelnWaspx VARCHAR(10) 
) 

AS 

BEGIN 

r 



Name: usp_PSPriceWaspCalcResoIveDriver 

Description: This is the main process that controls the 'walking back 1 (resolving) 
of sales amounts back to their respective purchase deals. 

Inputs: 

GasMonthx (Gas Month to calculate), 

WhichPricex (0=Nominations, ^Actualizations) 

EntityCIDx (which company is being calculated (owner company)) 

IncludelnWaspx ('Common'/None' or 'Dedicated 1 ) 

History: 

07/28/2000 JAMIE Original creation 
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7 

r 

* Declare all variables and cursors 
5 * that are needed by this process. 

7 

DECLARE @zMessage VARCHAR(254) 
DECLARE @yKProductlD INTEGER 
1 0 DECLARE @yKProductName VARCHAR(50) 

DECLARE @yKServicelD INTEGER 
DECLARE @yKServiceName VARCHAR(50) 

1 5 DECLARE ProductTypesCursor CURSOR LOCAL STATIC FORWARD ONLY FOR 

SELECT 

ProcessingCodelD, 

ShortDescription 

FROM 

20 SEProcessingCodes 

WHERE 

CodeType='CONTRPRODS* 

ORDER BY 

ProcessingCodelD 



25 



SELECT @zMessage = 'PSPriceWASPCalcResloveDriver, Running for Entity '-KgEntityCIDx+'.Pool 
'-K§lncludelnWaspx+\..' 
~~ EXECUTE usp Message ©zMessage 

U r 

0 30 

fn * Outermost loop is on product type... 

in OPEN ProductTypesCursor 

35 FETCH NEXT FROM ProductTypesCursor INTO @yKProductiD,@yKProductName 

WHILE @@FETCH_STATUS = 0 
-™ BEGIN 

SELECT @zMessage = 'PSPriceWASPCalcResloveDriver, Running for Product 

1 '-KgyKProductName+V..' 

]L 40 EXECUTE usp_Message ©zMessage 

u r 

01 

ru 



* Next loop is on service type... 

45 7 

DECLARE ServiceTypesCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

ProcessingCodelD, 
ShortDescription 

50 FROM 

SEProcessingCodes 

WHERE 

CodeType^CONTRSRVS' 

ORDER BY 

55 ProcessingCodelD 

OPEN ServiceTypesCursor 

FETCH NEXT FROM ServiceTypesCursor INTO @yKServicelD,@yKServiceName 
WHILE @@FETCH_STATUS = 0 
BEGIN 

60 BEGIN TRANSACTION 

SELECT @zMessage = 'PSPriceWASPCalcResloveDriver, Running for 

Service '+@yKServiceName+'../ 

EXECUTE usp.Message @zMessage 
EXECUTE usp_PSPriceWASPCalcResolveN 

65 @GasMonthx,@WhichPricex,@EntityCIDx,^^ 

COMMIT WORK 

FETCH NEXT FROM ServiceTypesCursor INTO 

@yKServicelD,@yKServiceName 

END 

70 CLOSE ServiceTypesCursor 
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DEALLOCATE ServiceTypesCursor 

FETCH NEXT FROM ProductTypesCursor INTO @yKProductlD,@yKProductName 

END 

CLOSE ProductTypesCursor 
DEALLOCATE ProductTypesCursor 

SELECT @zMessage = 'PSPriceWASPCalcResolveDriver, Finished with Entity '-KgEntityCIDx+'.Pool 

, -^lncludelnWaspx+'..; 

EXECUTE uspjvlessage @zMessage 

END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI.NULLS ON 
GO 



SET QUOTEDJDENTIFIER ON SET ANSI.NULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceWASPCalcResolveN( 

©GasMonthx DATETIME, 
©WhichPricex INTEGER, 
©EntityCIDx VARCHAR(12), 
©KProductlDx INTEGER, 
©KServicelDx INTEGER, 
©IncludelnWaspx VARCHAR(10) 
) 

AS 

BEGIN 

r 



Name: usp_PSPriceWASPCalcResolveN 

Description: This particular stored procedure is responsible for looping through and 
chasing all volumes back from purchase points back to the respective meter locations 
that originally contained the purchase volumes. 

History: 

05/01/2000 JAMIE Original Creation. 

05/24/2000 JAMIE Modified to include the entity, product and service. 

07/28/2000 JAMIE Modified to include the IncludelnWaspx parameter so that 
the calculations can be run in a specified WASP order... 

08/17/2000 JAMIE Removed the call to PSWASPCalcPostPurchaseN. This 
was done based on all wasp calculation entries being setup in the 
WASPResolvedRouting table. 



7 

r 



• Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE ©zMessage VARCHAR(254) 

SELECT ©zMessage = 'PSPriceWASPCalcResolveN Has Started for pool '•^^®lncludelnWaspx+^.. , 
EXECUTE uspj/lessage @zMessage 

r 



* Now invoke the routine that will chase 

* the volumes, prices and amounts back to 

* the purchase points. 
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*/ 

SELECT @zMessage = 'PSPriceWASPCalcResolveN, Tracing back all gas (resolving sales)...' 
EXECUTE uspjvlessage @zMessage 
EXECUTE usp_PSPriceWASPCalcResolveSa!esN 

@GasMonthx,@WhichPricex,@En%CIDx 1 @KProductlDx 1 @KServicelDx,@lnctudelnW 

r 



* Time to leave... 



7 

SELECT ©zMessage = 'PSPriceWASPCalcResolveN Has Completed for Pool , +@lndudelnWaspx+'...* 

EXECUTE usp Message @zMessage 

END 



GO 

SET QUOTED JDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceWASPCalcResolveSalesN( 

@GasMonthx 

DATETIME, 

@WhichPricex 

INTEGER, 

@EntityCIDx 

VARCHAR(12), 

@KProductlDx 

INTEGER, 

@KServicelDx 

INTEGER, 

@lncludelnWaspx 

VARCHAR(10) 

) 

AS 

BEGIN 

r 



Name: usp.PSPriceWASPCalcResolveSales 

Description: This particular stored procedure will loop through (iteratively) all of 
the sales meter records within the WASPResolvedRouting table (type 'S* records) and 
distribute their respective volumes, amounts and prices back to the purchase points 
(wieghted). 

All volumes should match here since the routing process routes purchase deals directly 
to sales deals AND the WASPResolvedRouting table was built on explicit volumes and 
links found in the Leg Detail (main routing) table. 

Inputs: 

GasMonthx - Gas Month 

WhichPricex - 0=Nominations, 1=Actuals 

EntityCIDx - owning company 

KProductlDx - product id (oil, gas, liquids, etc.) 

KServicelDx - service id (marketing, passthrough, etc.) 

IndudelnWaspx - {'Common' or 'None' or 'Dedicated') 

History: 

05/01/2000 JAMIE Original Creation. 

07/20/2000 JAMIE Modified in order to capture and save resolved total amounts 
along with the resolved volume amounts. This was required in order to correct a 
calculation problem. 

07/28/2000 JAMIE Modified to take into consideration which WASP pool is currently 
being resolved. 
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12/05/2000 JAMIE Modified to ensure that the receipt amount wiil not be exceeded 
when determining the volume to use. This situation only arose when certain 
unresolved records were ordered a certain way (during the resolution ritual). 
Confusing, I know, but that is the best I can do... The field zTempLeft contains 
this informaion 



7 



Declare all variables and cursors 
that are needed by this process. 



V 

DECLARE @zTempLeft DECIMAL(19,2) 
DECLARE @zRound INTEGER 
DECLARE ©zMessage VARCHAR(254) 
DECLARE ©zAnyUpdates VARCHAR(1) 
DECLARE ©zResolvedReceipt DECIMAL(19,2) 
DECLARE ©zResolvedReceiptAmt DECIMAL(19,2) 
DECLARE ©zResolvedDelivered DECIMAL(19,2) 
DECLARE @zResolvedDeliveredAmt DECIMAL(19,2) 
DECLARE @zReceipleft DECIMAL(19,2) 
DECLARE @zReceiptAmleftDECIMAL(19,2) 
DECLARE ©zPercentToApply DEC!MAL(19,6) 
DECLARE ©zSumDelivered DECIMAL(19,2) 
DECLARE @zPercentReceiptDECIMAL(19,6) 
DECLARE ©zUseVolume DECIMAL(19,2) 
DECLARE @zUseAmountDECIMAL(19,2) 
DECLARE @zAmountDEClMAL(19,2) 
DECLARE @zNewAmountDECIMAL(19,2) 
DECLARE @zNewPrice DECIMAL(19,6) 
DECLARE @zTempVolume DECIMAL(19,2) 
DECLARE @zTempAmount DECIMAL(19,2) 
DECLARE @zVo!umeDispersed DECIMAL(19,2) 
DECLARE ©zAmountDispersed DECIMAL(19,2) 
DECLARE ©zDifference DECIMAL(19,2) 
DECLARE @zResolvedlndicator VARCHAR(1) 
DECLARE ©zLinkUpdate VARCHAR(1) 
DECLARE ©zDeliveredLeft DECIMAL{19,2) 

DECLARE @yDelMID INTEGER 
DECLARE @yRecMID INTEGER 
DECLARE @yReceipt DECIMAL(19,2) 
DECLARE @yFuelOrOtherDECIMAL(19,2) 
DECLARE ©yDelivered DECIMAL(19,2) 
DECLARE @yTransportAmountDECIMAL(19,2) 
DECLARE ©yGatheringAmount DECIMAL(19,2) 
DECLARE @yAmountDEC!MAL(19,2) 
DECLARE @yDedicatedPurchasePKG INTEGER 
DECLARE @yPrice DECIMAL(19,6) 
DECLARE ©yResotvedReceipt DECIMAL(19,2) 
DECLARE ©ylnciudelnWasp VARCHAR(10) 
DECLARE ©yResoivedDelivered DEC1MAL(19,2) 
DECLARE ©yResoivedID INTEGER 
DECLARE @yResolvedReceiptAmt DECIMAL(19,2) 
DECLARE @yResolvedDeliveredAmt DECIMAL(19,2) 

DECLARE ©IDelMID INTEGER 
DECLARE ©IRecMID INTEGER 
DECLARE ©Receipt DECIMAL(19,2) 
DECLARE @IFueiOrOtherDECIMAL(19,2) 
DECLARE @IDelivered DECIMAL(19,2) 
DECLARE ©tTransportAmount DECIMAL(l9,2) 
DECLARE @IGatheringAmount DECIMAL(19,2) 
DECLARE ©lAmount DECIMAL(19,2) 
DECLARE @IDedicatedPurchasePKG INTEGER 
DECLARE @IPrice DECIMAL(15,6) 
DECLARE @IResolvedReceipt DECIMAL(19,2) 
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DECLARE ©UncludelnWasp VARCHAR(IO) 
DECLARE ©IResolvedDelivered DECIMAL(19 t 2) 
DECLARE ©IResotvedID INTEGER 
DECLARE @IResolvedReceiptAmt DECIMAL(19,2) 
DECLARE ©IResolvedDeliveredAmt DECIMAL(19,2) 



* This loop will iterate until no more 
10 * gas can be distributed to various 

* sales meters within the 

* WaspResolvedRouting table. 

7 

1 5 SELECT ©zRound = ISNULL((SELECT TypeLimit FROM SEProcessing Codes WHERE ProcessingCodelD = 

@KProductlDx),0) 

SELECT @zMessage = 'PSPriceWASPCalcResolveSalesN, starting iterative process... 1 
EXECUTE uspjvtessage @zMessage 
SalesMeterlterationLoop: 
20 BEGIN 

SELECT @zAnyUpdates='N' 

DECLARE WASPResolvedSalesCursor CURSOR LOCAL DYNAMIC FORWARD ONLY FOR 
SELECT 

DelMID, 

25 RecMID, 

Receipt, 
FuelOrOther, 

Q Delivered, 

TransportAmount, 

ijf 30 GatheringAmount, 

GO Amount 

yn DedicatedPurchasePKG, 

§n Price < 

ResolvedReceipt 

%J 35 InctudelnWasp, 

jy. ResolvedDelivered, 

a\ ResolvedID, 

3 ~ ResolvedReceiptAmt, 

s ResolvedDeliveredAmt 

Q 40 FR0M 

— WASPResolvedRouting 

W; WHERE 

flj (GasMonth=@GasMonthx AND 

fn NomOrActuaI=@WhichPricex AND 

~f 45 lncludelnWasp=@lncludelnWaspx AND 

P ResolvedlndicatoroT AND 

ResolvedReceiptoReceipt AND 
ResolvedTypeo'P' AND 
Amount<>0 AND 

50 PriceoOAND 

Delivered<>0 AND 
EntityCID=@EntityCIDxAND 
KProductlD=@KProductlDx AND 
KServicelD=@KServicelDx) 

55 ORDER BY 

Include! n Wasp, 

DedicatedPurchasePKG, 

DelMID 

OPEN WASPResolvedSalesCursor 
60 FETCH NEXT FROM WASPResolvedSalesCursor INTO ©yDelMID, 

©yRecMID.gyReceiptQyFuelOrOther.gyDelivered.QyTransportAmount.gyGatheringAmount.gyAmount 
,@yDedicatedPurchasePKG t 

65 @yPrice ( @yResolvedReceipt,@ylncludelnWasp,@yResolvedDelivered,@yResolvedlD, 

@yResolvedRecetptAmt@yResolvedDeliveredAmt 
WHILE @@FETCH_STATUS = 0 
BEGIN 

70 r 
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* Loop through each of the legs that 

* have the delivery meter the same as 

* the receipt meter for the given 

* month and class... 



*/ 

SELECT @zVolumeDispersed=0 
SELECT @zAmountDispersed=0 
SELECT @zLinkUpdate='N* 

DECLARE WASPResolvedLinkCursor CURSOR LOCAL DYNAMIC 

FORWARD_ONLY FOR 

SELECT 

DelMID, 

RecMID, 

Receipt 

FuelOrOther, 

Delivered, 

TransportAmount, 

GatheringAmount, 

Amount 

DedicatedPurchasePKG, 
Price, 

ResolvedReceipt 

IncludelnWasp, 

ResoivedDelivered, 

ResolvedID, 

ResolvedReceiptAmt 

ResolvedDeliveredAmt 

FROM 

WASPResolvedRouting 



WHERE 



AND 
AND 



(GasMonth=@GasMonthx AND 
NomOrActual=@WhichPricex 

I ncl udel n Was p=@y Include In Wasp 



DedicatedPurchasePKG=@yDedicatedPurchasePKG AND 

DeIMID=@yRecMID AND 
ResolvedlD<>@yResolvedlD 

AND 

EntityCID=@EntityCIDx AND 
KProductlD=@KProductlDx AND 
KServicelD=@KServicelDx AND 
ResolvedTypeo'S'AND 
ResolvedDelivered<Delivered) 

OPEN WASPResolvedLinkCursor 
FETCH NEXT FROM WASPResolvedLinkCursor INTO ©IDelMID, 

@IRecMID f @IReceipt@IFuelOrOther,@IDelivered,@ITransportAmount@lGatheringAmount@IAm 
DedicatedPurchasePKG, 

@IPrice,@IResolvedReceipt@llndudelnWasp,@IResotvedDelivered,@IResolvedlD, 

@IResolvedReceiptAmt@IResolvedDeliveredAmt 

WHILE @@FETCH_STATUS = 0 
BEGIN 

r 



* Determine the total volume of gas 

* where this gas came from (based on 

* delivery meterid being equal to 

* the receipt meter id and all WASP 

* pool and dedicated purchase package 

* information being identical). 
• 

*The zUseVolume field contains the 

* amount of volume from the delivery 

* meter to apply backward. 
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The zUseAmount field contains the 
dollar amount from the delivery meter 
that should be applied backward. 

The zPercentToApply field contains the 
volume weighted percentage to use. 



@zResolvedReceiptAmt=@yResolvedReceiptAmt 



AND (@yDe!ivered>@yResolvedDelivered) 
@zPercentReceipt=(@yResolvedDelivered/@yDelivered) 

more than */ 
previous */ 



SELECT @zResolvedReceipt=@yResolvedReceipt 
SELECT 

SELECT @zPercentReceipt=1 

I* Determine total receipt volume available to apply*/ 
/* This is based on percentage of delivered that may have*/ 
/* already been applied. In addition, determine the*/ 
/* amount that is available...*/ 

IF (@yDelivered<>0) AND (@yResolvedDelivered<>0) 

BEGIN 
SELECT 

END 

I* Incorporated this logic to ensure that no 
r the original receipt can be sent back to 
/•meter... 12/05/2000*/ 



SELECT 

@zReceipleft=ROUND((@yReceipt*@zPercentReceipt),@zRound) 
@yResolvedReceipt) 
@zPercentReceipt),@zRound); 



@zReceiptLeft=@zTempLeft 

@yResolvedReceiptAmt),2) 

apply... and RecMIDoDelMID */ 

SUM(Delivered) FROM WASPResolvedRouting 



SELECT @zTempLeft=(@yReceipt - 

SELECT @zTempLeft=Round((@zTempLeft * 

IF ©zTempLeft < @zReceiptLeft 
BEGIN 

SELECT 

END 

SELECT @zReceiptAmleft=ROUND((@yAmount- 
/* Determine percentage of the volumes and amounts to 



SELECT @zPercentToApply=1 

SELECT @zSumDelivered=ISNULL((SELECT 



WHERE 



GasMonth=@GasMonthx AND NomOrActual=@WhichPricex AND lncludelnWasp=@ylncludelnWasp AND 

DedicatedPurchasePKG=@yDedicatedPurchasePKG AND DelMid=@yRecMID AND ResolvedTypeo'S' 



AND 



EntityCID=@EntityCIDx AND KProductlD=@KProductlDx AND KServicelD=@KServicelDx),0) 



IF (@zSumDelivered<>0) AND (@IDelivered<>0) 
BEGIN 
SELECT 

@zPercentToApply=ROLIND((@IDelivered/@zSumDelivered) ( 6) 

END 

ELSE 

BEGIN 

SELECT @zPercentToApply=0 
END 
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I* Calculate volume to apply backwards for this particular 

leg...7 

SELECT 

@zUseVolume=ROUND((@zReceipleft*@zPercentToApply) ( @zRound) 

SELECT @zDeliveredLeft=@IDelivered- 

©IResolvedDelivered 

IF @zUseVolume>@zDeliveredLeft 
BEGIN 
SELECT 

@zUseVolume=@zDeliveredLeft 

END 

SELECT 

@zResolvedReceipt=@zResoivedReceipt+@zUseVolume 

SELECT 

@zVolumeDispersed=@zVolumeDispersed^zUseVolume 

r Calculate dollar amount to apply backwards for this 

particular leg...*/ 

SELECT 

@zUseAmount=ROUND((@zReceiptAmtLeft # @zPercentToApply),2) 

SELECT 

@zResolvedReceiptAmt=@zResolvedReceiptAmt+@zUseAmount 

SELECT 

@zAmountDispersed=@zAmountDispersed+@zUseAmount 

r 



* Now update the meter feeding 

* this delivery point with the 

* information just posted... 

* The amount is calculated based 

* on the previous value plus 

* the amount being posted from 

* the delivery meter. The 

* price is derived based on 

* receipt volume into the amount 
* 

* Since we are not forcing the pipes 

* to balance then calculate the price 

* based solely on the volume resolved 

* on delivery. 

7 

IF (@zUseVolume>0) AND (@zUseAmount<>0) 
BEGIN 

SELECT 



@zResolvedDelivered=@IResolvedDelivered+@zUseVolume 
@zResolvedDeliveredAmt=@IResolvedDeliveredAmt*>@zUseAmount 
@zNewAmount=ROUND((@lAmount^zUseAmount),2) 
AND (@IReceipt<>0) 



SELECT 
SELECT 

IF (@zResotvedDeliveredAmt<>0) 
BEGIN 



SELECT @zNewPrice=ROUND((@zNewAmount/@IReceipt),4) 

ELSE 

SELECT @zNewPrice=0 

UPDATE 

WASPResolvedRouting 
Resolvedlndicator='N\ 



END 
BEGIN 

END 
SET 
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ResolvedDelivered=@zResolvedDelivered, 



ResolvedDeliveredAmt=@zResolvedDeliveredAmt, 

Amount=@zNewAmount, 

Price=@zNewPrice 

WHERE 

ResolvedlD=@IResolvedlD 

SELECT @zAnyUpdates=Y 
SELECT @zLinkUpdate=T 

END 

FETCH NEXT FROM WASPResolvedLinkCursor INTO 

QlDelMID, 

@IRecMID,@IReceipt,@IFuelOrOthe^ 
DedicatedPurchasePKG, 

@IPrice P @IResolvedReceipt,@llncludelnWasp,@IResolvedDe!ivered,@IResolvedlD, 

@IResolvedReceiptAmt,@IResolvedDeliveredAmt 

END 

CLOSE WASPResolvedLinkCursor 
DEALLOCATE WASPResolvedLinkCursor 

r 



* After looping through all of the 

* meters that can possible associate 

* with this sale, go ahead and update 

* the original sales meter information 

* to reflect the total volume 

* passed on to subsequent meters. 



7 

IF @zLinkUpdate=Y 
BEGIN 

UPDATE 

WASPResolvedRouting 
SET 

ResolvedReceipt=ResolvedReceipt+@2VolumeDispersed t 
ResolvedReceiptAmt=ResolvedReceiptAmt+@zAmountDispersed, 

Resolved Indicator^ Y' 

WHERE 

ResolvedlD=@yResolvedlD 

END 

FETCH NEXT FROM WASPResolvedSalesCursor INTO ©yDelMID, 

@yRecMID,@yRec«ipt,@yFuelOrOther,@yDelivered t @yTransportAmount@yGatheringAmount,@yAmount 
,@yDedicatedPurchasePKG, 

@yPrice,@yResolvedReceipt@ylncludelnWasp,@yResolvedDelivered,@yResolvedlD ( 

@yResolvedReceiptAmt@yResolvedDeliveredAmt 
END 

CLOSE WASPResolvedSalesCursor 
DEALLOCATE WASPResolvedSalesCursor 

r 



* If no more volume was chased backward 

* then get out of the iterative loop, 

* At this point all volumes have been 

* sent back to all meters and weighted 

* costs should be available at each. 



7 
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IF @zAnyUpdates<>'N' 
BEGIN 

GOTO SalesMeterlteratjonLoop 

END 

END 

END 



10 



15 



20 



GO 

SET QUOTEDJDENTIFIER OFF 
GO 



SETANSI.NULLS ON 



SET QUOTEDJDENTIFIER OFF 
GO 



SETANSI.NULLS ON 
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CREATE PROCEDURE usp_PSPriceWASPCalcSa!esN( 



AS 

BEGIN 

r 



@GasMonthx DATETIME, 
@WhichPricex INTEGER, 
@EntityCIDxVARCHAR(12), 
@KProductlDx INTEGER, 
©KServicelDx INTEGER 
) 



Name: usp_PSPriceWASPCalcSalesN 

Description: This process will build all of the meters within the 
WASPResolvedRouting table for all of the deals within the gas month. Only 
those meters that had actual transport volume will be moved. A 
different routine will iterate through the volumes posted here in order 
to calculate all of the prices. 

Inputs: 

GasMonthx - Gas Month 
WhichPricex - (^Nominations, 1=Actuals 
EntityCIDx - Entity being calculated (owning company) 
KProductlDx • Product type being calculated. 
KServicelDx - Service type being calculated. 

History: 

05/02/2000 JAMIE Original Creation. 

05/24/2000 JAMIE Modified to add the Entity, product and service types to be 
parameters to this procedure. This will ensure that gas, oil, etc amongst the 
various types of companies (entities) being serviced do not get intermixed. 

07/20/2000 JAMIE Modified in order to initialize new resolved amount fields for 
all records that get added to the .WASPResolvedRouting table. 

08/18/2000 JAMIE Modified to go ahead and put the actual purchase point 
items on the table to include them in the calculations. At this point the 
WASPResolvedRouting table will contain ALL entries (see Type' field on the 
database). Purchase points thru Sales points. 

10/03/2000 JAMIE Modified to incorporate the 'Other Cosf amount totals 
into the Resolved table total calculation. 
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01/09/2000 JAMIE For consistency. Modified the rounding (on the prices 
to two decimal places (for ail months previous to December 2000). 



10 



50 



55 



60 



7 

r 

* Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©zlncludelnWasp VARCHAR(10) 
DECLARE ©zVolume DECIMAL(19,2) 

15 DECLARE @zType VARCH AR( 1 ) 

DECLARE ©zPrice DECIMAL(19,6) 
DECLARE @zAmountDECIMAL(19,2) 
DECLARE @zOtherCostAmountDECIMAL(19,2) 
DECLARE ©zDedicatedPurchasePKG INTEGER 

20 DECLARE @zGatheringAmount DECIMAL(1 9,2) 

DECLARE ©zTransportationAmount DECIMAL(15,2) 
DECLARE ©zAmountWithCosts DECIMAL(19,2) 
DECLARE ©zLastDay DATETIME 
DECLARE @zPrevSalePKG INTEGER 

25 DECLARE ©zPrevSaleMID INTEGER 

DECLARE ©yPurchasePKG INTEGER 
_ DECLARE ©yRecMID INTEGER 

B DECLARE @yDelMID INTEGER 

. rs 30 DECLARE ©ySalesPKG INTEGER 

2! DECLARE @yReceipt DECIMAL(19,2) 

W DECLARE ©yLDIDPrev INTEGER 

DECLARE ©yGasDay DATETIME 
j n DECLARE ©yPurchasePointTID INTEGER 

j^j 35 DECLARE ©yStep INTEGER 

y> DECLARE ©xPriceOrRateNom DECIMAL(19 t 6) 

y, DECLARE ©xPriceOrRateAct DECIMAL(19,6) 

s 40 DECLARE ©qPurchasePKG INTEGER 

O DECLARE @qLID INTEGER 

tfi DECLARE ©qRecMID INTEGER 

^ 1 DECLARE @qDe!MID INTEGER 

IU DECLARE ©qReceipt DECIMAL(19,2) 

Q1 45 DECLARE ©qDelivered DECIMAL(1 9,2) 

:Z DECLARE ©qFuelOrOther DECIMAL(19,2) 

W DECLARE ©qTransport DECIMAL(19,2) 

DECLARE ©qGathering DECIMAL! 1 9,2) 



SELECT ©zMessage = 'PSPriceWASPCalcSalesN Has Started../ 
EXECUTE uspj/lessage ©zMessage 

r 



* Delete any pre-existing resolved entries 

* that may exist in the database... These 

* records are the ones related to the 

* entity, product and service tyeps. 



7 

SELECT @zMessage = 'PSPriceWASPCalcSalesN, Deleting existing entries off WASPResolvedRouting.. 
EXECUTE usp_Message @zMessage 
DELETE 
65 FROM 

WASPResolvedRouting 

WHERE 

GasMonth=@GasMonthx AND 
NomOrActual=@WhichPricex AND 
70 EntityCID=@EntityCIDx AND 
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KProductlD=@KProductJDx AND 
KServicelD=@KServicelDx 

SELECT @zMessage = 'PSPriceWASPCalcSatesN, Finished deleting existing entries off WASPResolvedRouting...' 
EXECUTE uspjvlessage @zMessage 
5 r 

* Initially loop through the sales links 

* found on the iegdetail table (high level 

* loop)... Only looping through those 
1 0 * items that are associated with this 

* entity and product/service type. 

7 

SELECT @zPrevSalePKG=0 
1 5 SELECT @zPrevSaleMID=0 

EXECUTE uspJLastDay @GasMonthx,@zLastDay OUTPUT 
DECLARE LegDetailSaieCursor CURSOR LOCAL STATIC FORWARD ONLY FOR 
SELECT 

PurchasePKG, 
20 RecMID, 

DelMID, 
SalesPKG, 
Receipt, 
LDIDPrev, 

25 GasDay, 

PurchasePointTID, 
Step 

« FROM 

O LegDetail 

iO 30 WHERE 

fZt LegDetail.PurchasePointTID IN (SELECT DISTINCT TID FROM Gaslnv, Package, 

« K WHERE GaslnvPKG=Package.PKG AND k.kid = Package.KID AND Gaslnv.GasMonth=@GasMonthx AND 

tfl Gasinv.DBCR=0 AND Gaslnv.PriceType=1 and Package.KProductID = ©KProductlDx and Package. KServicelD = 

HI ©KServicelDx AND K.EntityCiD = @EntityCIDx) AND 

P= 35 LegDetail.GasDay>=@GasMonthxAND 
p LegDetail.GasDay<=@zLastDay AND 

M LegDetaii.GasMonth=@GasMonthx AND 

y, LegDetail.NomOrActuals=@WhichPricex AND 

LegDetail. LID=0 AND 

l_ 40 LegDetail.PurcnasePKG>0 AND 

O LegDetail.SalesPKG>0 

m ORDER BY 

~ \ LegDetail.SalesPKG, 

\ U LegDetail.RecMID, 

Q3 45 LegDetail.PurchasePointTID, 

f=j LegDetaii.GasDay, 

^ LegDetailPurchasePKG 

r^- SELECT ©zMessage = PSPriceWASPCalcSalesN, opening main sales cursor (LegDetailSaieCursor)...' 

EXECUTE usp_Message @zMessage 
50 OPEN LegDetailSaieCursor 

SELECT ©zMessage = PSPriceWASPCaicSalesN, finished opening main sales cursor (LegDetailSaieCursor)...' 

EXECUTE uspjvlessage ©zMessage 

FETCH NEXT FROM LegDetailSaieCursor INTO @yPurchasePKG, 

55 @yRecMlD,@yDelMID,@ySalesPKG,@yReceipt@yLDIDPrev,@yGasDay,@yPurchasePointTID,@yStep 
WHILE @@FETCH_STATUS = 0 
BEGIN 

r 

60 , * Determine the classification of the 

* purchase deal attached to this sales 

* volume right here... 

V 

65 EXECUTE uspJGetWasplndicator @yPurchasePKG,@zincludelnWasp OUTPUT 

IF @zlncludeln Wasp- Common' 
BEGIN 

SELECT @zDedicatedPurchasePKG=0 

END 

70 ELSE 
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BEGIN 

SELECT @zDedicatedPurchasePKG=@yPurchasePKG 

END 

r 



* If sales package has changed OR 

* the meter within a sales package 

* has changed then (amongst other 

* things) sum up any/all other costs 

* for the meter (this ensures that only 

* one instance of other cost entries 

* are totaled for a given sales deal 

* at a given meter). 



V 

SELECT @zOtherCostAmount=0 

IF (@ySalesPKG<>@zPrevSalePKG) OR (@yRecMID<>@zPrevSaleMID) 
BEGIN 

SELECT @zPrevSalePKG=@ySalesPKG 
SELECT @zPrevSaleMID=@yRecMID 
IF @WhichPricex=0 
BEGIN 

SELECT 

@zOtherCostAmount=ISNULL((SELECT SUM(Engine.Amount) FROM Gaslnv.Engine WHERE 
Gaslnv.PKG=@ySalesPKG 

AND 

Gaslnv.GasMonth=@GasMonthx AND Gaslnv.PriceType=1 AND Engine.TID=GaslnvTID AND 
Gaslnv.Gaslnv_MID=@yRecMID AND Engine.STID<>9),0) 

END 

IF @WhichPricex=1 
BEGIN 

SELECT 

@zOtherCostAmount=ISNULL((SELECT SUM(Engine.AmountAct) FROM Gaslnv.Engine WHERE 
Gaslnv.PKG=@ySalesPKG 

AND 

Gaslnv.GasMonth=@GasMonthx AND Gaslnv.PriceType=1 AND Engine.TID=Gaslnv.TID AND 
Gaslnv.Gaslnv_M1D=@yRecMID AND Engine.STID<>9),0) 

END 

END 

r 



* Calculate the price and amount for the 

* sales item here (utilizing the Engine 

* calculation). The beginning volume is 

* the amount pulled off the sales association 

* on the database,.. Break from this 

* loop once the first price record has been 

* obtained (for this day)... 



7 

SELECT @zPrice=0 
SELECT @zAmount=0 
SELECT @zVolume=0 

DECLARE EngineCursor CURSOR LOCAL STATIC FORWARD ONLY FOR 
SELECT 

Engine.PriceOrRateNom, 

Engine.PriceOrRateAct 

FROM 

Gaslnv, 
Engine 

WHERE 

Gaslnv.PKG=@ySalesPKG AND 
Gaslnv.PriceType=1 AND 
Engine.TID=Gaslnv.TID AND 
Gaslnv.Gaslnv_MID=@yRecMID AND 
Engine.Effective<=@yGasDay AND 
Engine.STID=9 

ORDER BY 

Engine.Effective DESC 

OPEN EngineCursor 
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FETCH NEXT FROM EngineCursorlNTO @xPriceOrRateNom,@xPrireOrRateAct 
IF@@FETCH_STATUS = 0 
BEGIN 

IF @zPrice=0 

BEGIN 

IF @WhichPricex=0 

BEGIN 

IF @GasMonthx < 

'12/01/2000' 

BEGIN 
SELECT 

@zPrice=ROUND(@xPriceOrRateNom,2) 

END 

ELSE 

BEGIN 
SELECT 

@zPrice=ROUND(@xPriceOrRateNom,4) 

END 

END 

ELSE 

BEGIN 

IF @GasMonthx < 

'12/01/2000' 

BEGIN 
SELECT 

@2Price=ROUND(@xPriceOrRateAct t 2) 

END 

ELSE 

BEGIN 
SELECT 

@zPrice=ROUND(@xPriceOrRateAct t 4) 

END 

END 

SELECT @zVolume=@yReceipt 
SELECT @zAmount=(@zVolume*@zPrice) 
END 

END 

CLOSE EngineCursor 
DEALLOCATE EngineCursor 

r 



* Sum the other cost entry on the 

* amount brought back for the 

* production volume amount The 

* other cost entry will only have a 

* non zero value the first time a 

* sales meter is encountered. Make 

* sure to reset the price entry. 



*/ 

IF @zOtherCostAmount<>0 
BEGIN 

SELECT @zAmount=@zAmount+@zOtherCostAmount 
IF (@zAmount<>0) AND (@zVolume<>0) 
BEGIN 

SELECT 

@zPrice=ROUND((@zAmountf@zVolume),4) 

END 

END 

r 

* Post a sales entry into the resolved 
'table here.. (LID=0)... This will be 

* the starting point once the routing 

* interative process begins... 

7 

IF ISNULL((SELECT countfl FROM WASPResolvedRouting WHERE GasMonth=@GasMonthx 
AND RecMID=@yRecMID AND DeIMID=@yDelMID AND 
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NomOrActual=@WhichPricex AND 
lncludelnWasp=@zlncludelnWASP AND Dedicated PurchasePKG=@zDedicatedPurchasePKG AND 

ResolvedType^'S' AND LlD=0 AND 
EntityCID=@EntityCIDx AND KProductlD=@KProductlDx AND KServicelD=@KServicelDx),0) < 1 

BEGIN 

INSERT 

INTO 

WASPResolvedRouting 
(GasMonth p RecMID,DelMID p NomOrActual p Receipt,FueIOrOther p DeliveredJransportAmou 

nt, Amount, 

IncludelnWasp.DedicatedPurchasePKGPri^ 
edDelivered, 

EntityCID,KProductlD ( KServicelD,ResolvedReceiptAmt,ResolvedDeliveredAmt) 

VALUES 

(©GasMonthx.gyRecMID.QyDelMID.gW 
©zincludelnWASP.gzDedicatedPurchasePKG.gzPrice.O.'N'/S'.O.O, 

@EntityCIDx ( @KProductlDx,@KServicelDx,aO) 
END 

ELSE 

BEGIN 

IF (@zAmount<>0) AND (@zVolume<>0) 
BEGIN 

UPDATE 

WASPResolvedRouting 



AND 
AND 



AND 



SET 



Receipt={Receipt+@zVolume), 

Delivered=(Delivered+@zVolume), 

Amount=(Amount-K§zAmount), 

Price=ROUND(((Amount-»@zAmount)/(Receipt+@zVolume)),4) 
GasMonth=@GasMonthx AND 



NomOrActual=@WhichPricex AND 
lncludelnWasp=@zlncludelnWASP AND 
DedicatedPurchasePKG=@zDedicatedPurchasePKG AND 



EntityCID=@EntityCIDxAND 
KProductlD=@KProductlDx AND 
KServicelD=@KSeryicelDx 
END 



WHERE 



RecMlD=@yRecMID 
DelMID=@yDetMID 



ResolvedType='S' 
LID=0 AND 



END 



FETCH NEXT FROM LegDetailSaleCursor INTO ©yPurchasePKG, 

@yRecMID f @yDelMID t @ySalesPKG t @yReceipt l @yLDIDPrev ( @yGasDay,@yPurchasePointTID t @yStep 
END 

CLOSE LegDetailSaleCursor 
DEALLOCATE LegDetailSaleCursor 

r 



-113« 



5=y 
CO 



KU 



n 



10 



15 



20 



25 



30 



35 



40 



45 



50 



55 



60 



65 



70 



Once all of the sales meters have been 
inserted then it is time to insert the 
transportation routing leg entries. THese 
are summarized entries. No day-to-day 
cursor processing is required only the 
sum of the unique days. 

Transport legs (type T) and purchase 
points (type 'P') are posted here.. 



7 

DECLARE LegDetailChaseCursor CURSOR LOCAL STATIC FORWARD ONLY FOR 
SELECT 

LegDetail.PurchasePKG, 

LegDetail.LID, 

LegDetail.RecMID, 

LegDetaiLDelMID, 

SUM(LegDetail.Receipt), 

SUM(LegDetaiLDelivered), 

SUM(LegDetaiLFuelOrOther), 

ROUNDtSUMtLegDetail.ReceiptTegDetail.TransportationRate)^), 

ROUND(SUM(LegDetail.Receipt*LegDetail.GatheringRate),2) 

FROM 

LegDetaii 

WHERE 

LegDetail.PurchasePointTID IN (SELECT DISTINCT TID FROM Gaslnv, Package, 
K WHERE Gaslnv.PKG=Package.PKG AND k.kid = Package.KID AND Gaslnv.GasMonth=@GasMonthx AND 
Gastnv.DBCR=0 AND Gaslnv.PriceType=1 and Package.KProductID = @KProductlDx and Package.KServicelD = 
@KServiceiDx AND K.EntityCID = ©EntityCIDx) AND 

LegDetail.GasMonth=@GasMonthx AND 

LegDetail.GasDay>=@GasMonthx AND 

LegDetail.GasDay<=@zLastDay AND 

LegDetail.NomOrActuals=@WhichPricex AND 

LegDetail.SalesPKG=0 

GROUP BY 

LegDetail.PurchasePKG, 
LegDetail.LID, 
LegDetail.RecMID, 
LegDetaiLDelMID 

SELECT @zMessage = 'PSPriceWASPCalcSalesN, running query to create transportation legs...' 
EXECUTE usp.Message @zMessage 
SELECT @zPrevSalePKG=0 
SELECT @zPrevSaleMID=0 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN, opening cursor (LegDetailChaseCursor)../ 
EXECUTE usp.Message @zMessage 
OPEN LegDetailChaseCursor 

SELECT ©zMessage = 'PSPriceWASPCalcSalesN, finished opening cursor (LegDetailChaseCursor)...' 

EXECUTE usp.Message @zMessage 

FETCH NEXT FROM LegDetailChaseCursor INTO 

©qPurchasePKG.gqLID.gqRecMID.QqDelMID.QqReceiptgqDelivered.QqFuelOrOther, 

@qTransport@qGathering 

WHILE @@FETCH.STATUS = 0 
BEGIN 

r 



* Determine the classification of the 

* purchase deal attached to this transort 

* volume right here... 



V 

IF (@qPurchasePKG<>@zPrevSalePKG) OR (@QLID<>@zPrevSaleMID) 
BEGIN 

SELECT @zPrevSalePKG=@qPurchasePKG 
SELECT @zPrevSaleMID=@qLID 

END 

EXECUTE usp_fGetWasplndicator@qPurchasePKG,@zlncludelnWasp OUTPUT 
IF @zlndudelnWasp-Common' 
BEGIN 

SELECT @zDedicatedPurchasePKG=0 
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END 

ELSE 

BEGIN 

SELECT @zDedicatedPurchasePKG=@qPurchasePKG 

END 

IF @qLID=0 

BEGIN 

SELECT @zType='P' 

END 

ELSE 

BEGIN 

SELECT @zType=T 

END 

r 



* If the leg for this is in the WASP 

* temporary routing table then 

* just update the record with the 

* totals. Otherwise, insert it and 
•goto the next leg... 



7 

SELECT @zAmountWithCosts=((@qGathering+@qTransport)*-1) 
IF ISNULL((SELECT count( # ) FROM WASPResoh/edRouting 

WHERE GasMonth=@GasMonthx AND RecMID=@qRecMID AND 

DeIMID=@qDelMID AND 

NomOrActual=@WhichPricex AND 

!ncludelnWasp=@zlncludelnWASP AND 

DedicatedPurchasePKG=@zDedicatedPurchasePKG AND 

ResoivedType=@zType AND UD=@qLID AND 

EntityCID=@EntityCIDx AND KProductlD=@KProductlDx 

AND KServicelD=@KServicelDx),0)<1 

BEGIN 

INSERT 

INTO 

WASPResolvedRouting 

(GasMonth.RecMID.DelMID^omOrActual.ReceiptFuelOrOther.Delivered, 

TransportAmountGatheringAmountAmountJncludelnWasp.DedicatedPurchasePKG, 

Price.ResolvedReceiptResolvedlndicator.ResolvedType.LID.ResolvedDelivered, 

EntityCID.KProductlD.KServicelD.ResolvedReceiptAmtResolvedDeliveredArnt) 

VALUES 

(@GasMonthx,@qRecMlD,@qDelMID,@^ 

@qTransport 1 @qGathering ) @zAmountWithCosts,@zlncludelnWASP,@zDedicatedPurchasePKG, 

0,07N',@zType,@qLID,0, 

@EntityCIDx,@KProductlDx ( @KServicelDx,0,0) 
END 

ELSE 

BEGIN 

UPDATE 

WASPResolvedRouting 
SET 

Receipt=(Receipt-KgqReceipt) p 

Delivered=(Delivered+@qDelivered), 

FuelOrOther=(FuelOrOther+@qFuelOrOther), 

TransportAmount=(TransportAmount+@qTransport), 
GatheringAmount=(GatheringAmount+@qGathering), 

Amount={Amount->@zAmountWithCosts) 

WHERE 

GasMonth=@GasMonthx AND 
RecMID=@qRecMlD AND 
DelMID=@qDelMID AND 
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NomOrActual=@WhichPricex AND 
lndudelnWasp=@zlndudelnWASP AND 

DedicatedPurchasePKG=@zDedicatedPurchasePKG AND 

ResolvedType=@zType AND 
LID=@qLID AND 
EntityCID=@EntityClDx AND 
KProductlD=@KProductiDx AND 
KServicelD=@KServicelDx 

END 

FETCH NEXT FROM LegDetailChaseCursor INTO 
@qPurchasePKG,@qLID,@qRecMID,@qDelMID,@qReceipt@qDelivered t @qFuelOrOther l 

@qTransport,@qGathering 
END 

CLOSE LegDetailChaseCursor 

DEALLOCATE LegDetailChaseCursor 

SELECT @zMessage = 'PSPriceWASPCalcSalesN Has Finished.,.' 

EXECUTE usp_Message @zMessage 

END 



GO 

SET QUOTED IDENTIFIER OFF SET ANSI.NULLS ON 
GO 

SET QUOTED IDENTIFIER ON SET ANSI.NULLS ON 
GO 

CREATE PROCEDURE usp_PSPriceWASPCIearMonth( 

©GasMonthx DATET1ME 
) 

AS 

BEGIN 

SET NOCOUNT ON 

r 



Name: usp.PSPriceWaspClearMonth 

Description: This routine will represents the common 'clean up' routine that 
will purge anything on the database that can be purged. 

The tables cleared include the following: 

GaslnvD (zero volume days for EstAct Nom t PipelineActuals) 
Leg Detail (zero volume routing entries) 

Inputs: 

GasMonthx (gas month to calculate), 
History: 

06/30/1 999 JAMIE Original creation 

08/04/1 999 JAMIE Modifications to not delete the entries in the 
WASPPurchaseMeterTotals table. This is becuase this table contains 
the information necessary to calculate the margins on a deal. All other 
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supporting table entries will be deleted. 

10/12/1999 JAMIE Modifications to procedure to go out and delete any 
daily gas inventory entries that contain no data. Again, since this procedure 
is only executed when the gas month gets marked as completed there 
should be no repurcussions except fewer database records to administer. 
Anything of historical relevance will be retained (ie.. if any volume whatsoever). 

03/30/2000 JAMIE Modifications made in the procedure to remove the zero entry 
routing records from the database (prior deletion of the daily gas inventory 
items should have deleted all of these (based on triggers). However, 
this is for any/all other residuals. 

08/25/2000 JAMIE Modified in order to remove obsolete cleanup tables 
such as old routing tables/etc. 
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DECLARE @zMessage VARCHAR(254) 
DECLARE ©zLastDay DATETIME 

DECLARE @wTID INTEGER 
DECLARE ©wGasDay DATETIME 

DECLARE @qLDID INTEGER 

SELECT ©zMessage = '™ STARTED, PSPriceWASPCIearMonth' 

EXECUTE usp_Message @zMessage 

EXECUTE usp.fLastDay @GasMonthx,@zLastDay OUTPUT 

r 



* Remove daily inventory items that 

* are now zero... 
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DECLARE GaslnvDCursor CURSOR LOCAL STATIC FORWARD ONLY FOR 
SELECT 

Gaslnv.TID, 

GaslnvD.GasDay 

FROM 

Gaslnv, 
GaslnvD 

WHERE 

GaslnvD.TID = Gaslnv.TID AND 
Gaslnv.GasMonth=@GasMonthx AND 
GaslnvD.EstAct = 0 AND 
GaslnvD. Norn = 0 AND 
GaslnvD.PipelineActuals = 0 

ORDER BY 

Gaslnv.TID, 
GaslnvD.GasDay 

SELECT ©zMessage = ' PSPriceWASPCIearMonth, Started removing ZEROd out Inventory Items...' 
EXECUTE usp.Message @zMessage 
OPEN GaslnvDCursor 

FETCH NEXT FROM GaslnvDCursor INTO @wTID, ©wGasDay 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

DELETE FROM GaslnvD WHERE TID=@wTID AND GasDay=@wGasDay 
COMMIT WORK 

FETCH. NEXT FROM GaslnvDCursor INTO @wTID, @wGasDay 

END 

CLOSE GaslnvDCursor 
DEALLOCATE GaslnvDCursor 

SELECT @zMessage = 1 PSPriceWASPCIearMonth, Finished removing ZEROd out Inventory Items... 1 

EXECUTE usp.Message @zMessage 

/* 



* Remove any routing items that had 

* no entries within them. 
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*/ 

DECLARE LegDetailCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 



LDID 
FROM 



LegDetail 



WHERE 

GasMonth=@GasMonthx AND 
10 Receipt=OAND 

Delivered=0 AND 
Balanced AND 
FuelOrOther=0 

ORDER BY 

1 5 PurchasePointTID 

SELECT @zMessage = ' PSPriceWASPCiearMonth, Started removing ZEROd out Routing (LegDetail) Items.. 
EXECUTE usp.Message @zMessage 
OPEN LegDetailCursor 

FETCH NEXT FROM LegDetailCursor INTO @qLDID 
20 WHILE @@FETCH_STATUS = 0 

BEGIN 

BEGIN TRANSACTION 

DELETE FROM LegDetail WHERE LDID=@qLDID 
COMMIT WORK 

25 FETCH NEXT FROM LegDetailCursor INTO @qLDID 

END 

CLOSE LegDetailCursor 
DEALLOCATE LegDetailCursor 

SELECT @zMessage = ' PSPriceWASPCiearMonth, Started removing ZEROd out Routing (LegDetail) Items... 
30 EXECUTE usp_Message @zMessage 

SELECT ©zMessage = FINISHED, PSPriceWASPCiearMonth' 
y=? EXECUTE usp .Message @zMessage 

a END 

W 35 

L oo 

^ SETQUOTEDJDENTIFIER OFF SET ANSI NULLS ON 

s 40 GO 



SETQUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
^ GO 

ru 

?Q 45 CREATE PROCEDURE usp_PSPriceWASPDivieOutProceedsN( 

@GasMonthx DATETIME, 
©WhichPricex INTEGER, 
@EntityCIDxVARCHAR(12) 
) 

50 AS 

BEGIN 

r 



Name: usp.PSPriceWASPDivieOutProceeds 
Description: 

This procedure will get executed during the WASP calculation in order 
to credit the financial proceeds (gain or loss) from one deal to another. 

These proceed designations are. setup on the package table 
(FinancialPKG and FinancialMID field contains either a deal id 
or a common wasp meter pool point that is to receive the proceeds). 
These fields are mutually exclusive on the deal table. 



The default for all deals is the deal itself (for owning the proceeds). Only 
if the FinancialPKG or FinancialMID field has been entered will it be 
distributed elsewhere. The distribution amount (if any) will be posted 
on the from deal record (either in the FinancialNomAmount or 
70 FinancialActAmount field, dependant on which price is calculating). 
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This procedure works for 3rd party deals only (deal classification rule 
is equal to 'None'). The reason for this is because these are the only 
types of deals where we know the actual margin ('Common' (Wasp) 
and sanctioned sales (Dedicated) are netback calculated deals. 

For all FinancialPKG/MID entries this procedure will: 

1 . Calculate the margin (purchase price and purchase meter price). 

2. Reduce the purchase meter amounts by the amount calculated. 

3. Post the dollar amount to the proceed purchase meters) based on their respective 
volume weightings to the deal. 

Inputs: 

GasMonthx - Gas Month 

WhichPricex - 0=Nominations, 1=Actuals 

EntityCIDx - owning company/entity 

History: 

07/27/1999 JAMIE Original Creation. 

10/13/1999 JAMIE Modified to cast the distribution amounts to decimal(18,4). 
This is because of bug receiving correct amount to distrubute when dividing 
two integers. 

03/30/2000 JAMIE Modified the program to not use the 'PackageLinks' 
table but to use the FinancialPKG field stored on the deal table. This 
was done as part of the integration with linking and the new route 
process. 

05/24/2000 JAMIE Modified to include the owning company/entity. 

07/28/2000 JAMIE Modified in order to post the updates of what is 
being distributed back to the Package table (for the 'from' deal) and 
then post the amounts to the WASP Purchase Meter table (for deals) 
or WASP Legs for meters. This change was done in order to 
facilitate the reordering of the calculations. 

08/07/2000 JAMIE Modified so that even if diving to a specific deal IF 
that deal is a wasp deal then all deals that share the same original 
purchase point meters as the deal being divied to (in the 'Common' pool) 
will share in the divie. 

08/18/2000 JAMIE Modified so that if diving to a specific deal then the 
amount will go to the WASPResotvedRouting table versus the obsolete 
WASPPurchaseMeterTable. 



7 

r 



* Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE ©zMessage VARCHAR(254) 
DECLARE ©zLastDay DATETIME 
DECLARE ©zPurchasePrice DECIMAL(19,6) 
DECLARE ©zlncludelnWasp VARCHAR(10) 
DECLARE ©zTotalVolume INTEGER 
DECLARE @zGrandTotalDistributed DECIMAL(19,2) 
DECLARE @zTempVolPercent DECIMAL(19,4) 
DECLARE @zAmountToDistribute DECIMAL(19,2) 
DECLARE ©zMarginPrice DECIMAL(18,4) 
DECLARE ©zMarginAmt DECIMAL(19 t 2) 
DECLARE ©zFoundDedicated VARCHAR(1) 
DECLARE ©zSumofFBOPKGCreditMeters INTEGER 
DECLARE ©zAmountToCredit DECIMAL(19,2) 
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DECLARE ©zSumofFBOPKGMeters INTEGER 



DECLARE @yPKG INTEGER 
DECLARE ©yFinandalPKG INTEGER 
DECLARE ©yKProductlD INTEGER 
DECLARE ©yKServicelD INTEGER 
DECLARE @yFinancia!MID INTEGER 

DECLARE @yWASPReceiptDECIMAL(19,2) 
DECLARE ©yWASPAmount DECIMAL(19,2) 
DECLARE ©yWASPPrice DECIMAL(19,6) 
DECLARE ©yWASPResolvediD INTEGER 

DECLARE @yWASPCreditReceipt DECIMAL(19 ( 2) 
DECLARE ©yWASPCreditAmount DECIMAL(19 t 2) 
DECLARE ©yWASPCreditPrice DECIMAL(19,2) 
DECLARE @yWASPCreditResolvedlD INTEGER 

DECLARE @qDelivered DECIMAL(19,2) 
DECLARE ©qAmount DECIMAL(19,2) 
DECLARE ©qPrice DECIMAL(19,6) 
DECLARE ©qResolvedID INTEGER 

SELECT ©zMessage = 'PSPriceWASPDivieOutProceedsN, ^STARTED' 

EXECUTE usp_Message @zMessage 

EXECUTE uspJLastDay @GasMonthx,@zl_astDay OUTPUT 

r 



* At this point we want to loop 

* through all of the packages 

* (deals) on the system that had 

* requested that the proceeds 

* be divied to other deals. 



7 

DECLARE ProceedsCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

PKG, 

FinancialPKG, 

KProductlD, 

KServicelD, 

FinancialMID 

FROM 

Package, 
K 

WHERE 

(K.KID=Package.K!D) AND 
(K.EntityCID=@EntityCIDx) AND 
(StartDate BETWEEN ©GasMonthx AND ©zLaslDay) AND 
(((FinancialPKG IS NOT NULL) AND (FinancialPKG<>0)) OR ((FinancialMID IS 
NOT NULL) AND (FinancialMID<>0))) 
ORDER BY 

PKG 

OPEN ProceedsCursor 

FETCH NEXT FROM ProceedsCursor INTO ©yPKG.gyFinancialPKG^yKProductiD^yKServicelD.igyFinancialMID 
WHILE @@FETCH_STATUS = 0 
BEGIN 

BEGIN TRANSACTION 

SELECT ©zMessage = 'PSPriceWASPDivieOutProceedsN, Proceeds divied from deal...' + 
CAST(@yPKG as VARCHAR(12)) 

EXECUTE usp__Message @zMessage 



* Get the agreed upon purchase 

* price from the engine for the 

* 'from' purchase deal. The total 
4 volume across all days is also 

* obtained here (for all meters). 
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Base the price on the weighted 
averages for all entries within 
the Engine table. 

This yields the single weighted 
average cost across all wells 
and days. 

This price should be the price 
that was found PRIOR to diving 
out any adjusments. 

7 

IF @WhichPricex=0 
BEGIN 

SELECT @zPurchasePrice=ROUND(ISNULL((SELECT 
SUM(Engine.Amount)/SUM(Engine.Volume) FROM Engine.Gaslnv 

WHERE 

(Gasinv.GasMonth=@GasMonthx AND Gaslnv.PKG=@yPKG) AND (Engine JID=Gaslnv.TID) AND (Engine.STID=8) 
AND 

Engine.Amount>0 and Engine. Volume>0),0),4) 

SELECT @zTotalVolume=ISNULL((SELECT SUM(Engine. Volume) 
FROM Engine.Gaslnv WHERE (Gaslnv.GasMonth=@GasMonthx AND Gaslnv.PKG=@yPKG) AND 

(Engine.TID=Gaslnv.TID) AND (Engine.STlD=8) AND 

Engine.Amount>0 and Engine. Volume>0),0) 
END 

IF@WhichPricex=1 
BEGIN 

SELECT @zPurchasePrice=ROUND(lSNULL((SELECT 
SUM(Engine.AmountAct)/SUM(Engine.VolumeAct) FROM Engine.Gaslnv 

WHERE 

(Gaslnv.GasMonth=@GasMonthx AND Gaslnv.PKG=@yPKG) AND (Engine.TID=Gaslnv.TID) AND (Engine.STID=8) 
AND 

Engine.AmountAct>0 and Engine. VolumeAct>0),0),4) 

SELECT @zTotalVolume=ISNULL((SELECT SUM(Engine.VolumeAct) 
FROM Engine.Gaslnv WHERE (Gaslnv.GasMonth=@GasMonthx AND Gaslnv.PKG=@yPKG) AND 

(Engine.TID=GaslnvTID) AND (Engine.STlD=8) AND 

Engine.AmountAct>0 and Engine. VolumeAct>0),0) 
END 

r 



* Only continue if the purchase 

* price (average) for this deal 

* could be calculated (ie.. there 

* was a volume and there was 

* a price entry. 
* 

* Now loop through each of the 

* meters to determine how much 

* to reduce each meter by... 

7 

SELECT @zGrandTotalDistributed=0 
IF (@zPurchasePrice>0) 
BEGIN 

IF @zTotalVolume<>0 
BEGIN 



amounts7 



/* This cursor is for determining proceed 



DECLARE 

WASPResolvedRoutingDebitCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
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SELECT 

receipt 
amount, 
price, 

ResolvedID 
FROM 

WASPResolvedRouting 

WHERE 

GasMonth=@GasMonthx AND 
DedicatedPurchasePKG=@yPKG AND 
NomOrActual=@WhichPricex AND 
EntityCID=@EntityCIDxAND 
KProduct!D=@yKProductlD AND 
KServiceiD=@yKServicelD AND 
ResolvedType='P' AND 

■ LID=0 

AND 

RecMID=DelMID 

OPEN WASPResolvedRoutingDebitCursor 
FETCH NEXT FROM WASPResolvedRoutingDebitCursor 

INTO @yWASPReceipt@yWASPAmount 

@yWASPPrice,@yWASPResoivediD 

WHILE @@FETCH_STATUS = 0 
BEGIN 
SELECT 

@2MarginPrice=ROUND((@yWASPPrice-@zPurchasePrice),4) 

SELECT 

@zMarginAmt=ROUND((@zMarginPrice*@zTotalVolume),2) 

IF @yWaspReceipt>0 
BEGIN 

SELECT @zTempVoIPercent=ROUND((@yWaspReceipt/@zTotalVolume),4) 
SELECT @zAmountToDistribute=ROUND((@zTempVolPerc»nt*@zMarginArnt),2) 
SELECT @zGrandTotalDistributed=@zGrandTotalDistributed-^zAmountToDistribute 
UPDATE 

WASPResolvedRouting 
SET 

Amount=AmounH@zAmountToDistribute*-1 ) 

WHERE 

ResolvedlD=@yWASPResolvedlD 

UPDATE 

WASPResolvedRouting 
SET 

Price=(Amount/Receipt) 

WHERE 

ResolvedID=@yWASPResolvedlD AND 
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ReceiptoOAND 



Amount<>0 

END 

FETCH NEXT FROM 

WASPResolvedRoutingDebitCursor INTO @yWASPReceipt@yWASPAmount, 

@yWASPPrice,@yWASPResolvedlD 

END 

CLOSE WASPResolvedRoutingDebitCursor 
DEALLOCATE 

WASPResolvedRoutingDebitCursor 

END 

END 



* At this point, if there has been any 

* proceeds distributed from the 

* purchase deal then go and distribute 

* the amount back to the deal where 

* that is receiving credit This is 

* based on the volume weighting 

* distribution at the target 'to' meter. 

* The field zGrandTotaEDistributed contains 

* the total dollar amount to be credited 

* the the meters (based on volume 

* weighting. 



V 

IF @zGrandTotalDistributed<>0 
BEGIN 

r 



* Post the 'from' deal with the 

* appropriate distributed amount 

* This is the total amount across 

* the entire deal and is stored on 

* the deal record to provide an 

* audit of how much was diverted. 



*/ 

IF @WhichPricex=0 
BEGIN 



FtnancialNornAmount=@zGrandTotaIDistributed 



END 

IF @WhichPricex=1 
BEGIN 



UPDATE 

Package 
SET 



WHERE 

PKG=@yPKG 



UPDATE 

Package 
SET 



FinancialActAmount=@zGrandTotalDistributed 



END 

r 



* If diving to another deal then 

* perform this.... Adjustments are 

* made to the WASPResolvedRouting 

* table. There is no need to post 

* adjustments to the Engine table 



WHERE 

PKG=@yPKG 
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10 



* since the target deals have either 

* not yet calculated (dedicated) or 

* the Engine price is fixed (3rd 

*ff jY); i Ai 

•/ 

IF (@yFinancialPKG IS NOT NULL) AND (@yFinancialPKG<>0) 
BEGIN 

r 



* Determine if the target deal is 

* a wasp deal or a 3rd party or 

* sanctioned sale deal... If it is a 

* wasp deal then the originating 
1 5 * meters in the common pool 

* will get the credit 



20 @yFinancialPKG,@zlncludelnWasp OUTPUT 



25 



7 

EXECUTE uspJGetWasplndicator 



* Sum totals across all meters on 
*the target deal... 



*/ 

IF @WhichPricex=0 

_ BEGIN 

P SELECT 

yg 30 @zSumofFBOPKGCreditMeters=ISNULL((SELECT SUM(inventory.Nom) FROM gaslnv AS inventory 

WHERE inventory.PKG=@yFinancialPKG AND inventory.GasMonth=@GasMonthx AND 
yp inventory.DBCR=0 AND inventory.PriceType=1 ),0) 

in END 
ZL 35 IF@WhichPricex=1 

M BEGIN 

SELECT 

@zSumofFBOPKGCreditMeters=ISNULL((SELECT SUM(inventory.PipelineActuals) FROM gaslnv AS inventory 



40 WHERE inventory.PKG=@yFinancialPKG AND inventory.GasMonth=@GasMonthx AND 

inventory.DBCR=0 AND inventory.PriceType=1),0) 

END 

r 



IU 

Ey 45 * If there is some sort of volume 



* then post it proportionately. 



•/ 

IF @zSumofFBOPKGCreditMeters<>0 
50 BEGIN 

/* 



* if not a wasp deal to post the 
55 "credit to then... 



60 'Common' 



65 



FOR 

70 SELECT 



*/ 

IF @zlncludelnWasp <> 

BEGIN 

/* This cursor is for posting proceeds to a dedicated deal point*/ 

DECLARE WASPResolvedRoutingCreditDedicatedCursor CURSOR LOCAL STATIC FORWARD.ONLY 
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ru 
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15 
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25 



30 



35 



40 



45 



50 



55 



60 



65 



receipt, 
amount, 
price, 

ResofvedID 
FROM 

WHERE 



WASPResolvedRouting 



GasMonth=@GasMonthx AND 
DedicatedPurchasePKG=@yFinancialPKG AND 
NomOrActual=@WhichPricex AND 
receipt>0 AND 
ResolvedType^P' AND 
LID=0 AND 
RecMID=DelMID 
OPEN WASPResolvedRoutingCreditDedicatedCursor 

FETCH NEXT FROM WASPResolvedRoutingCreditDedicatedCursor INTO @yWASPCreditReceipt, 
@yWASPCreditAmount,@yWASPCreditPrice,@yWASPCreditResolvedlD 

WHILE @@FETCH_STATUS = 0 
BEGIN 

SELECT 

@zTempVo(Percent=ROUND((@yWaspCreditReceipy@zSumofFBOPKGCreditMeters),4) 

SELECT 

@zAmountToCredit=ROUND((@zTempVolPercent*@zGrandTotalDistributed),2) 

IF @zAmountToCredit<>0 
BEGIN 

UPDATE 

WASPResolvedRouting 
SET 

Amount=(Amount+@zAmountToCredit) 

WHERE 

ResolvedlD=@yWASPCreditResolvedlD 

UPDATE 



WASPResolvedRouting 
SET 

Price=(Amount/Receipt) 
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WHERE 



ResolvedlD=@yWASPCreditResolvedlDAND 

Amount<>OAND 
Receipt<>0 

END 

FETCH NEXT FROM WASPResolvedRoutingCreditDedicatedCursor INTO 



©yWASPCreditReceipt, 



@yWASPCreditAmount,@yWASPCreditPrice,@yWASPCreditResotvedlD 
END 

CLOSE WASPResolvedRoutingCreditDedicatedCursor 
DEALLOCATE WASPResotvedRoutingCreditDedicatedCursor 



END 

r 



* if wasp deal to post the 

* credit to then... 



V 

IF @zlncludelnWasp- Common' 
BEGIN 



r This cursor is for posting proceeds to a common meter purchase point*/ 

DECLARE WASPResolvedRoutingCreditWASPCursor CURSOR LOCAL STATIC FORWARD.ONLY FOR 
SELECT 

wp.receipt 

wp.amount, 

wp.price, 

wp.ResotvedlD 

FROM 

WASPResolvedRouting AS wp, 
GaslnvASg 



WHERE 



g.GasMonth=@GasMonthx AND 
g.PKG=@yFinancia!PKG AND 
g.Gaslnv_MID=wp.RecMlD AND 
wp.GasMonth=@GasMonthx AND 
wp.DedicatedPurchasePKG=0 AND 
wp.lncludeln Wasp- Common* AND 
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3 ; 
S 

0*1 



10 



15 



20 



25 



30 



35 



40 



45 



wp.NomOrAdual=@WhichPricex AND 
wp.receipt>0 AND 
wp.EntityCID=@EntityCIDx AND 
wp.KProductlD=@yKProductlD AND 
wp.KServicelD=@yKServicelD AND 
wp.ResolvedType- P' AND 
wp.LID=OAND 
wp.RecMID=De!MID 
OPEN WASPResolvedRoutingCreditWASPCursor 

FETCH NEXT FROM WASPResolvedRoutingCreditWASPCursor INTO QyWASPCreditReceipt, 

@yWASPCreditAmount ( @yWASPCreditPrice,@yWASPCreditResolvedlD 
WHILE @@FETCH_STATUS = 0 
BEGIN 

SELECT 

@2TempVolPercent=ROUND((@yWaspCreditReceipt/@zSumofFBOPKGCreditMeters),4) 

SELECT 

@zAmountToCredit=ROUND((@zTempVolPercent*@zGrandTotalDistributed),2) 

IF @zAmountToCredit<>0 
BEGIN 

UPDATE 

WASPResolvedRouting 
SET 

Amount=(Amount+@zAmountToCredit) 

WHERE 



50 



55 



60 



65 



ResolvedlD=@yWASPCreditResolvedlD 

UPDATE 



WHERE 



ResolvedlD=@yWASPCreditResolvedlDAND 



WASPResolvedRouting 
SET 

Price=(Amount/Receipt) 



Amount<>0 AND 
Receipt<>0 



END 



-127- 



FETCH NEXT FROM WASPResolvedRoutingCreditWASPCursor INTO 

@yWASPCreditReceipt, 



@yWASPCreditAmount,@yWASPCreditPrice 1 @yWASPCreditResolvedlD 
END 

CLOSE WASPResoivedRoutingCreditWASPCursor 
DEALLOCATE WASPResolvedRoutingCreditWASPCursor 

END 

END 



END 



* If diving to the WASP pool then 

* the total distributed is posted 

* proportionately on each leg that 

* contains this meter in the 
''Common' pool. 



7 

IF (©yFinancialMID IS NOT NULL) AND (@yFinancialMID<>0) 
BEGIN 

r 



* Sum totals across ail legs that 

* have the same meter in the 

* 'Common' pool for the month. 

V 

SELECT 

@zSumofFBOPKGCreditMeters=ISNULL((SELECT SUM(Delivered) FROM WaspResolvedRouting 
WHERE GasMonth=@GasMonthx AND LID<>0 AND 

NomOrActual=@WhichPricex AND Include! nWasp-Common' AND 
EntityCID=@EntityCIDx AND KProductlD=@yKProductlD AND 
KServiceiD=@yKServicelD AND DelMID=@yFinancialMID),0) 

r 



* If there is some sort of volume 

* then post it proportionately to 

* each of the legs in the WASP 

* resolved routing table. 

•/ 

IF @zSumofFBOPKGCreditMeters<>0 
BEGIN 



posting proceeds to a wasp pool (non entry point)*/ 

WASPResolvedRoutingCreditCursor CURSOR LOCAL STATIC FORWARDJDNLY FOR 



r This cursor is for 
DECLARE 



SELECT 

delivered, 

amount 

price, 

ResoivedID 
FROM 
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WASPResotvedRouting 

WHERE 

GasMonth=@GasMonthx AND 
NomOrActual=@WhichPricex AND 
EntityCID=@EntityCIDxAND 
KProductlD=@yKProductlD AND 
KServicelD=@yKServicelD AND 
DelMID=@yFinanciaiMID AND 
LIDoOAND 

IncludelnWasp-Common' AND 
delivered>0 

OPEN 

WASPResolvedRoutingCreditCursor 

FETCH NEXT FROM 

WASPResolvedRoutingCreditCursorlNTO @qDeiivered,@qAmount,@qPrice f @qResolvedlD 

WHILE 

@@FETCH_STATUS = 0 

BEGIN 

r 



* Determine the percent to post 

* here... 



*/ 

SELECT @zTempVolPercent=ROUND((@qDelivered/@zSumofFBOPKGCreditMeters),4) 
SELECT @zAmountToCredit=ROUND((@zTempVolPercent*@zGrandTotalDistributed),2) 
IF @zAmountToCredit<>0 
BEGIN 

UPDATE 

WASPResolvedRouting 
SET 

Amount=(Amount-HgzAmountToCredit) 

WHERE 

Resolved I D=@q Resolved ID 

END 

FETCH NEXT FROM WASPResolvedRoutingCreditCursor INTO @qDelivered,@qAmount, 
@qPrice,@qResolvedlD 

END 
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CLOSE 

WASPResolvedRoutingCreditCursor 

DEALLOCATE 

WASPResotvedRoutingCreditCursor 

END 

END 

END 

COMMIT WORK 

FETCH NEXT FROM ProceedsCursor INTO 
@yPKG,@yFtnancialPKG ( @yKProductlD,@yKServicelD ( @yFinancialMID 
END 

CLOSE ProceedsCursor 
DEALLOCATE ProceedsCursor 

SELECT @zMessage = 'PSPriceWASPDivieOutProceedsN, ^FINISHED**** 

EXECUTE usp_Message @zMessage 

END 



GO 

SET QUOTEDJDENTIFIER OFF SET ANSI NULLS ON 
GO 

SET QUOTEDJDENTIFIER ON SET ANSI NULLS ON 
GO 

CREATE PROCEDURE usp_fGetCalclndex( 

@TIDx INTEGER, 
@NomOrActualx INTEGER, 
@EntityClDxVARCHAR(12), 
@KProductJDx INTEGER, 
©KServicelDx INTEGER, 
©GasMonthx DATETIME, 
@rRetum Value DECIMAL(19,6) OUTPUT 
) 

AS 

BEGIN 
/* 



Name: uspJGetCalclndex 

Description: This is the main process for finding the actual price that was 
calculated for a WASP purchase deal. The WASPResolvedRouting table 
contains all of the prices for WASP purchases. 

An attempt should first be made to see if the price can be resolved by reading 
for a 'Dedicated' wasp pool (sanctioned sales/purchases are more or less 
dedicated). The purchase deal id must match the dedicatedpurchasepkg field 
on the WASPResolvedRouting. 

If the specific package cannot be found then the purchase meter will be used 
(ie.. /Common* wasp pool). 

Inputs: 

TIDx - Unique Key to gas inventory record (Gaslnv) 
NomOrActualx - 0=Nominations, ^Actualizations 
EntityCIDx- owner 
KProductlDx - product id 
KServicelDx- service 
GasMonthx - Current gas month 
rRetumValue - OUTPUT return value 
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History: 



06/29/1 999 JAMIE Modified from original creation 

(date of original creation ?) to support WASP calc changes V2.20. 

06/22/2000 JAMIE Modified to get wasp prices based on entity, 
product and service. 

08/1 8/2000 JAMIE Modified to get the wasp prices off the WASPResolvedRouting 
table versus the obsolete WASPPurchaseMeterTable. 

1 1/07/2000 JAMIE Modifications to convert from Watcom-SQL to 
Transact-SQL 



V 
/* 



* Declare all variables and cursors 

* that are needed by this process. 



7 

DECLARE @ymid INTEGER 
DECLARE @ypkg INTEGER 
DECLARE @ygasmonth DATETIME 
DECLARE ©yWorkValue DECIMAL(19,6) 
DECLARE ©message VARCHAR(255) 

r 



* Initialize key fields and then get 

* the meter and deal information 

* off the gas inventory table. 



7 

SELECT @rRetumValue=0 
SELECT 

@ymid=gasinv_mid, 
@ypkg=pkg, 
@ygasmonth=gasmonth 
FROM 

gasinv 

WHERE 

tid=@tidx 

r 



* Now try and read the price off the 

* WASPResolvedRouting with 

* an assumption that it could be a 

* sanctioned sale deal. 



7 

r 



* If price is a dedicated purchase 

* price then get that number. Otherwise, 

* the the price from the WASP pool. 



7 

IF ((SELECT countH FROM WASPResolvedRouting 

WHERE DedicatedPurchasePKG=@ypkg AND GasMonth=@ygasmonth AND lncludelnWasp='Dedicated' 
AND NomOrActual=@NomOrActualx AND RecMID=@ymid 

AND DelMID=@ymid AND ResoivedType^P AND LID=0 AND 
EntityCID=@EntityCIDx AND KProductlD=@KProductlDx AND KServicelD=@KServicelDx) > 0) 

BEGIN 

SELECT @yWorkValue=Price FROM WASPResolvedRouting 

WHERE DedicatedPurchasePKG=@ypkg AND GasMonth=@ygasmonth AND 
lncludelnWasp='Dedicated' AND NomOrActual=@NomOrActualx AND RecMID=@ymid 

AND DelMID=@ymid AND ResorvedType= , P t AND LID=0 AND 
EntityC I D=@EntityCIDx AND KProductlD=@KProductlDx AND KServicelD=@KServicelDx 
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END 

ELSE 

BEGIN 

SELECT @yWorkValue=Price FROM WASPResolvedRouting 

WHERE RecMID=@ymid AND DelMID=@ymid AND LlD=0 AND ResotvedType='P' 
AND gasmonth=@ygasmonth AND InciudelnWasp='Common' AND 
NomOrActuaN@NomOrActualx AND EntityCID=@EntityCIDx 

AND KProductlD=@KProductlDx AND 

KServicelD=@KServicelDx 
END 

r 



* If some sort of price was found then 

* return with it... Otherwise zeros 

* are returned (no price calculated). 

7 

r 

SELECT ©message = 'WASP Price ' + 

CAST(@yWorkValue AS VARCHAR(12)) + 
' for meter id ' + 

CAST(@ymid AS VARCHAR(12)) 
EXECUTE usp.message ©message 
7 

IF @yWorkValue IS NOT NULL 
BEGIN 

SELECT @rRetumValue=@yWorkValue 

END 

END 



GO 

SET QUOTEDJDENTIFIER OFF SETANSIJMULLS ON 
GO 



ADDITIONAL FEATURES 
The present invention has been disclosed, illustrated, and 
described in relation to a client-server application that facilitates 
pricing and distribution of fuel to a customer. Although centralized 
data storage and manipulation is preferred in regard to the version 
of the system that has been provided, the inventors contemplate 
other applications and enhancements that certainly are within the 
scope of the present invention. For example, the present 
invention relies on data inputs and feeds from a variety of entities 
such as producers, transporters, etc. Although such data inputs 
are often entered manually into the systems provided by the 
present invention, such data inputs could be automatically 
delivered and stored within data store 106 (FIG. 2). For example, 
transporters controlling actual meters along a gas pipeline, for 
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example, could be outfitted with remote sensors and transmitters 
that provide shipment volume, etc. details directly to the systems 
provided by the present invention. Moreover, data inputs such as 
indexing datum used to drive pricing, etc. may be similarly 
obtained. And, since such data inputs can come from a variety of 
sources, modern communications technologies such as the 
Internet, wireless technologies, etc. could all be used to couple an 
operator of the systems and methods provided by the present 
invention with such sources. Accordingly, the present invention is 
not limited to any particular data retrieval system, topology, 
method, or paradigm. Those skilled in the art will be immediately 
able to adapt and modify the underlying data collection 
capabilities of the systems and methods provided by the present 
invention to incorporate such new and modern technologies and 
techniques. 

Finally, it should be noted that the present invention 
contemplates and provides for an elaborate reporting capability as 
provided within the software contained on the attached compact 
disc. Those skilled in the art of computer programming and those 
familiar with fuel deal management will immediately understand 
that any number of report may be prepared to suit and satisfy 
management requirements. The database tables maintained by 
the present invention certainly support all types of relational type 
queries that such reports may require. 

Thus, having fully described the present invention by way 
of example with reference to the attached drawing figures, it will 
be readily appreciated that many changes and modifications may 
be made to the invention and to any of the exemplary 
embodiments shown and/or described herein without departing 
from the spirit or scope of the invention which is defined in the 
appended claims. 
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